Salve a tutti, c'è modo di non far scrivere l'estensione del file quando usando Application.Dialogs(xlDialogSaveAs).Show?

Questo il codice che ho scritto:
Dim Nomefile As String
Application.Dialogs(xlDialogSaveAs).Show Nomefile, xlOpenXMLWorkbookMacroEnabled

La finestra di dialogo dovrebbe proporre "cartella di lavoro con attivazione macro" come tipo di file, ma non dovrebbe scrivere l'estensione .xlsm dopo Nomefile, ad esempio se Nomefile = Pippo vorrei che non mostrasse Pippo.xlsm ma soltanto Pippo come nome file.
Suggerimenti?