Este fórum está sendo desativado

[Santana90]

Pessoal, boa noite!

Quero fazer uma macro que ao clicar no botão apareça a janela (Salvar Como) e com o arquivo no formato (xlsm.), o usuário final irá apenas digitar o nome do novo arquivo e escolher o local que será salvo a cópia.
Utilizei o código abaixo, mas é necessário escolher o formato do arquivo, além do formulário perder a Macro, pois a ideia é que a Macro permaneça.
Help!

Código:

Sub Limpar_SalvaComo()

'Salvar Como
With Application.FileDialog(msoFileDialogSaveAs)
.Show
.Execute

End With

End Sub

Desde já, obrigado!

[osvaldomp]

Para salvar como arquivo habilitado para macros acrescente a linha em vermelho conforme baixo.
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 2
.Show
.Execute
End With

... além do formulário perder a Macro, pois a ideia é que a Macro permaneça.

Esta parte eu não entendi

[Santana90]

Osvaldomp,

Muito obrigado resolveu o meu problema.

Com relação ao (... além do formulário perder a Macro, pois a ideia é que a Macro permaneça.) como estava salvando em .xlsx estava perdendo a macro, mas agora que está salvando em .xlsm, o problema está resolvido.

At,