Save As - Cancel

[michaelp1029]

I've been looking online but have found no solutions. I have a maco created so that I can bring up a Save As dialog box. From this point on I would like a message box to state one thing if I press "Save As" and another message if I press the "cancel" button but have found no helpful data just yet. Help?

 

[VoG]

Something like this?

Sub test()
Dim fName As Variant
fName = Application.GetSaveAsFilename _
        (InitialFileName:="", _
        FileFilter:="Excel Files (*.XLS), *.XLS", _
                     Title:="Save As")
If fName = False Then
    MsgBox "User pressed cancel"
    Exit Sub
Else
    MsgBox "Saving as " & fName, vbInformation
    ActiveWorkbook.SaveAs Filename:=fName
End If
End Sub