Este fórum está sendo desativado

[andriessen]

Bom dia! Estou tentando um botao dentro do USERFORM para salvar como
Deveria pegar a mesma pasta do arquivo original e salvar como HABILITADA PARA MACRO
estou tentando este codigo mas nao salva como xlsm.
Sub Salvar_Como()
Nome = InputBox("Informe o nome do arquivo que quer salvar!")
Formato = (".xlsm")
'ThisWorkbook.SaveAs = "ThisWorkbook.Path \ " & Nome & ".xlsm"""

OU isso
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Nome & Formato

End Sub

Agradeço se alguém me ajudar a descobrir o erro da minha linha.

[babdallas]

Veja se assim dá certo.

Código: Selecionar todos

ThisWorkbook.SaveAs = Filename:="ThisWorkbook.Path \ " & Nome & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

[andriessen]

Valeu MESTRE.