esta é uma area/canl exclusivo para apresentação de novos integrantes do grupo.
De uma procurada em na base de dados do fórum, há um grande numero de tópicos sobre o assunto.
A rotina básica para exportar(imprimir) em PDF é

Sub SalvarArquivoPDF()

Dim NomeArquivo As String
'Altere aqui o endereço de sua celula com o nome do arquivo
NomeArquivo = ActiveSheet.Range("CD17").Value
'Altere C:zzzzxxxxx, para seu diretorio
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:zzzzxxxxx" & NomeArquivo & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

MsgBox "O arquivo foi salvo corretamente.", vbOKOnly, "Arquivo Salvo"
   
End Sub

Se o autor desse tópico me permita,
não consegui salvar na Área do Trabalho ou Desktop.
Alterando para Filename:="Área de Trabalho" & NomeArquivo & ".pdf", _
Só salva com aquele(s) nome(se) em C:Users"meu usuário"Documents

Obrigado!

Area de trabalho não é um nome reconhecido pelo sistema. Creio que deva ser algo +/- assim

Filename:="C:Users" & Environ("UserName") & "Desktop" & NomeArquivo & ".pdf"