I have this code that suppose to doa Save As Action, it goes trough
the motion, but no file is saved.

' Start Save As File Prior To resetting
Msg = "Save File Prior to Resetting the Form!"
Style = vbOKOnly
Title = "GUSD --------------- ROLA"
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Microsoft Excel Workbook (*.xls), *.xls")
If fileSaveName < False Then
MsgBox "Save as " & fileSaveName
End If
' End Save As

Regards
Ardy