MsgBox when selection is made

[ABabeNChrist]

I'm using this code to open a Save As dialog, I have an opening message before the code runs and a message at the end. is it possible that if the user decides to opt out and selects the cancel button on the Save As dialog, that the last message will not be displayed.

Code: Select all

MsgBox ("You are now starting a New Report. You can also opt to CANCEL this process")
Application.Dialogs(xlDialogSaveAs).Show arg2:=xlOpenXMLWorkbookMacroEnabled
MsgBox ("You may now select OPEN REPORT and begin working on your report")

[StuartR]

Code: Select all

If Application.Dialogs(xlDialogSaveAs).Show(arg2:=xlOpenXMLWorkbookMacroEnabled) Then
    ' More actions here
Else
    ' Actions for when the user cancelled
End If

[ABabeNChrist]

Thank you StuartR
It works perfect