Faltou o anexo??

Boa tarde!!

Poste seu arquivo modelo compactado!!

Att

Desculpem achei que tinha ido. Segue lá.

Obrigado pelo retorno.

Edmilson

Ed, a rotina utilizada para "gerar" o PDF, já está salvando, porem no mesmo diretório da planilha,
O caminho e nome:
SvInput = ThisWorkbook.Path & Application.PathSeparator & nome & " - " & Data & ".pdf"

Onde: ThisWorkbook.Path corresponde ao diretório onde está salvo a sua planilha e será "gravado" o pdf.
Application.PathSeparator corresponde à "/", que não é obtida pela variável anterior, mas é necessário para o sistema operacional
nome corresponde ao nome dado na caixa de mensagem
Data corresponde a data do dia no formato dd-mm-aaaa
Então para alterar o diretório mude:
ThisWorkbook.Path para (por exemplo) "c:/Relatórios"

como faço para adaptar esse código

SvInput = ThisWorkbook.Path & Application.PathSeparator & nome & " - " & Data & ".pdf"

nesse

    Sheets("CONTROL").Select
    Range("A1:N34").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:Indião.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
    Sheets("MENU_PRINCIPAL").Select
     Sheets("CONTROL").Visible = True
    ActiveWorkbook.Save