Thread: Error Trapping File Dialog Box

HI AnthonyWB, try this and it will hopefully do what you want

Private Sub CommandButton2_Click()
ChDrive "C:\"
'-------------------------------------------------------------------------------------------------------------
'Import TQ EPMS Valuations file via the file dialog box.
'-------------------------------------------------------------------------------------------------------------
ChDir "C:\Users\AHernandez1\Desktop\"
strThisQuarterFileName = Application.GetOpenFilename _
(Title:="Please choose the file to import for this quarter", _
FileFilter:="Excel Files *.xlsx (*.xlsx),")
If strthisquarterfilename = False Then
    MsgBox "No file selected"
    Exit Sub
Else
Workbooks.Open Filename:=strthisquarterfilename
End If'-------------------------------------------------------------------------------------------------------------
End Sub

Hello AnthonyWB,

You need to check your variable strThisQuarterFileName before you execute the workbooks open statement. If the user has chosen "Cancel" then the value returned will be either the string "False" or the boolean value False, depending on the variable type. Here is the amended code.

Private Sub CommandButton2_Click()

ChDrive "C:\"

Dim strThisQuarterFileName As String

'Import TQ EPMS Valuations file via the file dialog box.
ChDir "C:\Users\AHernandez1\Desktop\"

strThisQuarterFileName = Application.GetOpenFilename _
(Title:="Please choose the file to import for this quarter", _
FileFilter:="Excel Files *.xlsx (*.xlsx),")

If strThisQuarterFileName = "False" Then Exit Sub
Workbooks.Open Filename:=strThisQuarterFileName

End Sub