Não sei se entendi direito, mas não seria isto :

'No Excel 2010 altere .XLS para .XLSX or .XLSM
Sub Xxxxx_SaveAs()
    Dim fname
    fname = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Save As")
    If fname = False Then Exit Sub
    ActiveWorkbook.SaveAs Filename:=fname
End Sub

fonte : http://www.mrexcel.com/forum/excel-ques ... -help.html

[]s

Mauro, o código completo, salva mas não abre.
Sub Salvar()
Application.ScreenUpdating = 0
Dim Pasta As String
Application.DisplayAlerts = False
template_file = ActiveWorkbook.FullName

fileSaveName = "Desktop" + VBA.Strings.Format(Now, "dd-mm-yyyy") + ".xlsm"
fileSaveName = Application.GetSaveAsFilename(InitialFileName:="DLista Reserva" + VBA.Strings.Format(Now, "dd-mm-yyyy") + ".xlsm", fileFilter:="Excel Files (*.xlsm), *.xlsm")
Dim newBook As Workbook
Dim plan As Worksheet
Dim Intervalo As Range

Set Intervalo = [DB16]

Set newBook = Workbooks.Add
ThisWorkbook.Activate
Intervalo.Copy
newBook.Sheets(1).[A1].PasteSpecial xlPasteValues

For i = newBook.Sheets.Count To 2 Step -1
newBook.Sheets(i).Delete
Next
newBook.SaveAs Filename:=fileSaveName, FileFormat:=xlTextWindows, CreateBackup:=False
newBook.Close SaveChanges:=True
Set newBook = Nothing
Application.ScreenUpdating = 1
End Sub

Bem melhor quando temos a rotina completa, agora entendi, e neste caso o problema é quase no final da mesma, você está definindo o tipo do arquivo como "TEXTO" (FileFormat:=xlTextWindows) :

Troque esta :
newBook.SaveAs Filename:=fileSaveName, FileFormat:=xlTextWindows, CreateBackup:=False

por esta :
newBook.SaveAs Filename:=fileSaveName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Faça os teste, e veja se é isto.

[]s

Bom dia
Alguma coisa não saiu nos conformes, veja:

Dimorais, é somente um errinho de digitação, em vez de você escrever :

xlOpenXMLWorkbookMacroEnabled

você escreveu :
xlOpenXMLWorkbookMacroEnable sem o "d"

[]s

Ma ki burru, dah zeru pa êli fesô.