Pessoalmente eu definiria o local onde o usuario salvaria o arquivo e pronto.

Que pode ser uma pasta na rede, uma pasta no C da maquina dele ou ate mesmo no desktop.

Veja se nesse topico nao te ajuda.
http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=27660

Até onde sei .FileDialog(FileDialogType:=msoFileDialogSaveAs) não aceita filtros. https://analystcave.com/vba-application-filedialog-select-file/#Save_file_8211_msoFileDialogSaveAs

Obrigado a todos....
Consegui ontem a noite apos muita procura....
Colocando o "fDlg.FilterIndex = 3" ele informa já parametriza qual formato default a salvar (basta questão de boas praticas ao usuário não modificar)
1- pasta Excel (XLSX), 2 - Pasta de Macro (XLSM), 3- Binário (XLSB), etc....

Sub Salvar()
Dim fDlg As FileDialog
Set fDlg = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs)

'Nome padrão para salvar o arquivo
fDlg.InitialFileName = ActiveWorkbook.Name
fDlg.FilterIndex = 3
fDlg.Show
fDlg.Execute

End SUB

Obrigado a todos!!!!!!.....(se alguem souber como parametrizar e travar o formato que não de opção ao usuario)rsrsrs

JPerez,

Boa tarde!

Pedimos, por gentileza, que edite suas mensagens e insira o código VBA dentro da ferramenta CODE existente logo no início da caixa de mensagens (quinto botão da esquerda para a direita).

Obrigado!!!!!

JPerez,

Bom dia!

De nada!

Pedimos também, por gentileza, não efetuar citações de inteiro teor das mensagens que lhe são encaminhadas. Elas são desnecessárias. As citações, quando estritamente necessárias ao entendimento da mensagem, devem restringir-se apenas a pequenos trechos das mesmas.