VBA: cancel file selection

[kweaver]

I have a macro that prompts a user to select a file that is subsequently saved as a sheet and the data used in calculations.
If the user cancels at the prompt to select a file, how do I avoid an error and just exit the macro?

I suspect it's something to do with OnError, but don't know the placement or syntax to use.

 

[Fluff]

At the very top of a standard module (before any code) put

Global QuitAll As Boolean

In the macro where you are selecting a file use

Sub macro1()
Dim statements
Application.ScreenUpdating = False
   Set DestWbk = ThisWorkbook
   Fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Select a File")
   If Fname = "False" Then
      QuitAll = True
      Exit Sub
   End If
etc
etc
End Sub

and in the main macro use

Sub main()
   Call macro1
   If QuitAll Then Exit Sub
   Call Macro2
   
End Sub

 

[kweaver]

From research I see I can take my first of a few modules and write:

Option Explicit
Global flag Variable As String

Then, use "flag" throughout each of my modules.

I'll have to dig to see how I find out within a sub if the CANCEL key has been clicked when being prompted to select a file from a folder.