Better try this. Will be saved as xls. Yours just a file without extension if you don't type it in.[VBA]Sub file_to_save()
Dim sFile As Variant
sFile = Application.GetSaveAsFilename(InitialFileName:="", _
fileFilter:="Microsoft Office Excel Workbook (*.xls), *.xls", Title:="Save workbook to..")
If sFile <> False Then
ThisWorkbook.SaveAs Filename:=sFile
Else
MsgBox ("Please give a name ..."), vbInformation
End If
End Sub[/VBA]Charlize