Excel Macro para exportar - abrir janela para escolher pasta e nome do arquivo

[Luiz H D Garcia]

Olá pessoal, tenho uma planilha que exporta os dados e salva conforme código abaixo:

Mas gostaria de ter opção se selecionar a pasta que salva quando clicar no botão exportar que roda a macro. Alguém pode ajudar?

 

 ActiveWorkbook.SaveAs FileName:="C:\CONTRATO.PRN", FileFormat:= _
        xlTextPrinter, CreateBackup:=False

 

Desde já Obrigado.

[Visitante]

 

Experimente:

 

Application.Dialogs(xlDialogSaveAs).Show ThisWorkbook.Name & ".xlsm"