Veja se é isto, é só definir o nome do arquivo e o diretorio que quer salvar :

Adaptação do código no link abaixo :
A macro neste link é mais completa e tem outras opções alem de verificar a versão do Excel, vale a pena dar uma olhada :
Macro Excel VBA para criar PDF
http://forum.clubedohardware.com.br/top ... criar-pdf/

Sub Criar_PDF_Mauro()
    Dim Filepdf, rNome, ePath, Filename As String

    rNome = "lista_de_compras"
    ePath = "C:Seu_CaminhoMeus_Pdfs"
    
    Filename = Trim(rNome & ".Pdf")
    Filepdf = ePath & Trim("" & Filename)

    Sheets("lista_de_compras").Select

    Application.DisplayAlerts = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filepdf, _
            Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True

    MsgBox "PDF gerado com sucesso!"
    
End Sub

Mauro,

Muito obrigado, funcionou corretamente no meu computador, porém eu preciso de um caminho que seja padrão para usar em qualquer computador. Por exemplo, se eu definir no código o caminho "C:UsersGiovaniDesktop", no meu computador funcionará perfeitamente, mas assim que abrir em outro micro, retornará um erro. Teria uma forma de deixar o caminho padrão para que funcione em todos os computadores? Tentei adaptar o código deixando apenas para salvar dentro do C:, mas não funciona também.

Lisboa, eu acho que o ideal seria criar uma nova pasta e esta ficar padrão, porem tambem poderemos ter alguns impasses dependendo do PC em que iremos executar, por exemplo, aqui no serviço nós temos acesso ao drive " C:" mas não temos permissão de criar pastas e nem salvar nada neste drive devido a restrição de Administrador.

Uma sugestão seria criar a pasta a nivel de usuário (Users), a rotina abaixo captura o nome do usuário e verifica se existe a pasta Desktop, e se verdadeiro define o novo caminho em "ChDir curPath" e armazena na Variavel "sDiretorioAtual ", a qual pode-se utilizar para salvar o arquivo, como não tenho varias versões de excel nem de sistema operacional, faça alguns teses nos pcs que tem e veja se ajuda.

Sub VerificaPastaCaminho()

    Dim fPathOK As Boolean
    Dim curPath As String
    
    On Error Resume Next
    Dim UserName As String
    
    UserName = Environ("username")
    
    ChDir "C:Users" & UserName & "Desktop"
        
        If Err = 0 Then
           ChDir curPath
            fPathOK = True
            
            MsgBox CurDir
            sDiretorioAtual = CurDir
         
        Else
            MsgBox "Caminho - Pasta não localizado"
            Err.Clear
        End If
    
End Sub

Muito obrigado Mauro, funcionou perfeitamente.