Marco para PDF.

Fala pessoal.
Estou precisando de uma ajuda aqui, o código não funcionou e preciso da mesma solução que o amigo: " salvar em qualquer computador", sem precisar mexer no código.
Além de salvar em pdf, envio por e-mail
Segue código que estou usando:

Dim OutApp As Object, OutMail As Object

    Dim Nome As String

    Dim assunto As String

    Dim email_forn As String

    Dim caminhopdf As String

        

    email_forn = txtobservacao

    Nome = Sheets("gerar_voucher&quot.Range("AA1&quot

    caminhopdf = VBA.Environ("userprofile&quot & "\Desktop"

    assunto = "Senha de agendamento Cremer - CD Indaial:  " & Nome

    ThisWorkbook.Sheets(Array("gerar_voucher&quot).Select



'Ajuste da largura das paginas:

Application.PrintCommunication = False

With ActiveSheet.PageSetup

.Orientation = Excel.xlPortrait '(retrato)

.Zoom = False

.FitToPagesWide = 1

End With

Application.PrintCommunication = True



ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

caminhopdf & "\" & Nome & ".pdf" _

, Quality:=xlQualityStandard, IncludeDocProperties:=True, _

IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True

    

    Set OutApp = CreateObject("Outlook.Application&quot

    Set OutMail = OutApp.CreateItem(0)