How stop a code if 'Cancel' is clicked in the file dialog box

[JackZill]

I'm using the below code to bring up the file dialog box so the user can select a file path to save a file.

What I want to do is stop an error from occuring when the user clicks the 'Cancel' button in the dialog box. Currently when you click 'Cancel', it comes up with 'Run-time error '5': Invalid procedure call or argument' and highlights the last line in the code below. Does anyone know how I can fix this?

Dim mySaveLocation As String
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
dlg.AllowMultiSelect = False
dlg.Show
mySaveLocation = dlg.SelectedItems.Item(1)

 

[FormR]

Hi, welcome to the forum!

How about something like this:

Dim mySaveLocation As String
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
dlg.AllowMultiSelect = False
dlg.Show
If dlg.SelectedItems.Count > 0 Then
    mySaveLocation = dlg.SelectedItems.Item(1)
End If

 

[JackZill]

Hi, welcome to the forum!

How about something like this:

Dim mySaveLocation As String
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
dlg.AllowMultiSelect = False
dlg.Show
If dlg.SelectedItems.Count > 0 Then
    mySaveLocation = dlg.SelectedItems.Item(1)
End If

Hi, thanks for having me! Also thanks for your helpful response.
I added an else exit sub and it works perfectly. Cheers!

Dim mySaveLocation As String
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
dlg.AllowMultiSelect = False
dlg.Show
If dlg.SelectedItems.Count > 0 Then
    mySaveLocation = dlg.SelectedItems.Item(1)
    Else
    Exit Sub
End If