Excel Macro dando erro ao trocar planilha de Computador

[Augusto Megres]

Boa noite gurizada,

 

Estou fazendo uma macro para gerar um PDF direto da minha planilha do excel, porém quando eu troco de computador a macro retorna erro, pois o caminho do desktop está no meu pc "C:\Users\José Augusto Megres\Desktop", como eu faço para este caminho ser o desktop para todos os computadores.

Sub Salvar_memorando_1_pagina()
'
' Salvar_memorando_1_pagina Macro
'

'
    Range("A1:P45").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$P$45"
    ChDir "Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Desktop\Memorando.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    ActiveSheet.PageSetup.PrintArea = ""

Como podem ver já tentei colocar C:\Desktop, somente Desktop, \Desktop mas nada funciona :c

Abraços!!

[CasaDoHardware]

O caminho esta errado por isso o erro.

 

O correto é assim

 

"C:\Users\USUARIO LOGADO\Desktop"

 

Cada maquina tem um usuario diferente.

 

Recomendo usar uma pasta direto no C

[Basole]

@Augusto Megres para a sua sub rotina funcionar sem erros em outros PCs e sua macro identificar o caminho da pasta Desktop automaticamente altere o trecho "C:\Desktop\Memorando.pdf" do seu código.

 

Por este:

 Environ("USERPROFILE") & "\Desktop\Memorando.pdf"