Guru do Excel e Power BI

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.

Veja se assim dá certo.

Valeu MESTRE.