try this:

Sub test()
Dim Result, fileSaveName
Result = MsgBox("Do you wish to save?", vbYesNo, "Save")
If (Result = vbYes) Then
fileSaveName = Application.GetSaveAsFilename(filefilter:="Excel files
(*.xls), *.xls")
If fileSaveName <> False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlNormal,
_
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False,
_
CreateBackup:=False
End If
End If
MsgBox "continuing"
End Sub