xlDialogSaveAs - End ALL code if "Cancel" is pressed

[CC268]

Background: I have a Sub that uses the "Call" function to run multiple subs within one Sub (see Code #1 below).

Option Explicit

Sub MIUL_Run_All()


Dim StartTime As Double
Dim SecondsElapsed As String


'Remember time when macro starts
  StartTime = Timer


Call OptimizeCode_Begin


Call Format_MIUL
Call Custom_Sort_MIUL
Call Insert_Process_List
Call Format_Process_List


Call OptimizeCode_End


'Determine how many seconds code took to run
  SecondsElapsed = Format((Timer - StartTime) / 86400, "ss")


'Notify user in seconds
  MsgBox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation


End Sub

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; white-space: inherit;">
</code>My first code that is called out, "Format_MIUL", prompts the user to save the file, using the following line of code (see Code #2 below). This code works, but the problem is that if the user presses the "Cancel" button, the rest of the code called out in the main sub (Code #1 above) will continue to run. I want ALL code to stop if the user presses the cancel button. I just can't seem to figure out how to do that.

'Save file as .xlsmMsgBox "       Save as Excel Workbook (.xlsx)!"
Dim userResponse As Boolean


On Error Resume Next
userResponse = Application.Dialogs(xlDialogSaveAs).Show(, 51)
On Error GoTo 0
If userResponse = False Then
Exit Sub
Else

End If

Any help is greatly appreciated.

 

[V_Malkoti]

In FORMAT_MIUL subroutine, try using End instead of Exit Sub. End will terminate the entire macro instead of just exiting the subroutine.

 

[CC268]

In FORMAT_MIUL subroutine, try using End instead of Exit Sub. End will terminate the entire macro instead of just exiting the subroutine.

Ha wow! What a simple solution. That worked perfect!

Thanks

 

[V_Malkoti]

Glad I could help.