Apos essa linha de codigo

If Nome <> vbNullString Then

ChDir ' Insira aqui o caminho do desktop use o gravador de macros para descobrir.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
MsgBox "O PEDIDO Nº " & Nome & vbCrLf & vbCrLf & "Foi Salvo Na Sua Área De Trabalho Com Sucesso Em " & SDate & ".", vbOKOnly, "Salvo"
Else
MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
End If

MPrudencio, boa tarde.
Me desculpe, mas estou aprendendo vba, poderia me explicar melhor como faço isso. Uso um botão da macro para gravar que está em um módulo: Sub BotãoGravar_Clique() . A macro que gravei é : BotãoGravar_Clique. Outra coisa a linha MyLocal = "C:Desktop" não existe, foi enviado errado, o que eu uso é MyLocal = "C:Documents and SettingsOperadorMeus Documentos"

Se Preferir, segue a planilha completa

crcj

Segue planilha alterada com o código para salvar na área de trabalho.

Teleguiado, boa tarde.
Obrigado pela sua resposta, mas está dando erro, segue anexo.

crcj

O Prsafe é para office 64bits se o seu for 32 bits tira ele.

Teleguiado, boa tarde.
Não está dando certo, ele não grava na minha área de trabalho, mas tudo bem, vamos para o plano " B " tem como quando clicar no botão salvar, ele me abre a caixa de dialogo, e ai eu consigo salvar no caminho que eu escolher e o modelo do arquivo por ex PDF.

Pela imagem, o erro está na instrução inicial Priveta Declare (creio que a mesma foi copiada e colada nesse local), repare que a mesma esta em vermelho indicando que a "troca" de linha (_) não foi reconhecida.
Edite e corrija essa instrução. Em adiciona acrescente "" na linha MyLocal -- MyLocal = "C:Documents and Settings" & UserName & "Desktop"

crcj
Subistitua o código abaixo:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

Por este

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & "" & Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

Que vai gravar na sua área de trabalho.

(...)
Uso um botão da macro para gravar que está em um módulo: Sub BotãoGravar_Clique() .
(...)

oi, crcj!
Eu uso no final da macro, antes do "End Sub", a linha de comando abaixo:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "" & Range("Y8").Value & "Plan1" & Range("AA5").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

FONTE: viewtopic.php?f=10&t=11146

Ela salva o resultado da macro no mesmo local do arquivo e abre em PDF.

[ ]'s
PS: Se a resposta foi útil, clique na "mãozinha positiva" ou em "curtir"
na fonte de link informada, agradecendo ao colaborador do código.
Eu já fiz a minha parte! :]

Ola, talvez pode ti ajudar este código;

Sub SalvarPDF()
 Application.ScreenUpdating = False
On Error GoTo debugs
      Set objWS = CreateObject("WScript.Shell")
 ActiveWindow.SmallScroll Down:=27
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        objWS.SpecialFolders("Desktop") & "Arquivo PDF" & Format(Date, "  dd-mm-yyyy") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
      Exit Sub
debugs:
      MsgBox "Atenção houve um erro ao salvar o arquivo PDF. ", vbCritical
 Application.ScreenUpdating = False
End Sub

Bom dia.
Agradeço a todos que me ajudaram nesse tópico, principalmente ao OrlandoS cujo código postado aqui deu corretamente certo dentro do que eu estava precisando, mais uma vez, obrigado a todos que me ajudaram, até a próxima, e vamos encerrar o tópico.