Essa salva pelo nome do arquivo

Sub Macro2()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:relatoriosNome do arquivo.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

Tente ajustar a sua necessidade.

Bom dia MP,

Da forma como vc colocou eu teria que pré-estabelecer um nome para o arquivo, certo?

Minha planilha é um formulário template, ou seja, não tem nome pré-estabelecido. Para cada ficha preenchida, o Excel será renomeado e preciso que a macro de gerar pdf use o "nome do Excel.pdf" salvo na planilha, na pasta C:/Relatórios.

É possível? abs

Experimente

Private Sub CommandButton1_Click()
Dim i As Integer, iArr As Integer
Dim Nome_Arquivo As String
Dim myArray() As Variant, nArq
iArr = 0
'Conta os itens do listbox
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        ReDim Preserve myArray(iArr)
        myArray(iArr) = ListBox1.List(i)
        iArr = iArr + 1
    End If
Next
'Obtem o nome do arquivo e separa a extensão
nArq = Split(ThisWorkbook.Name, ".") 'nArq(0) = nome do arquivo sem extensão
'Nome do Arquivo será nome do arquivo corrente
Nome_Arquivo = "C:Relatórios" & nArq(0) & ".pdf"
Sheets(myArray).Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
Sheets(1).Select
End Sub

Deu certo. Obrigado!!

Eu só alterei "nArq = Split(ThisWorkbook.Name, ".")" para "nArq = Split(ThisWorkbook.Name, ".pdf")"