Invalid procedure call or argument - Selecting files

[tomlancaster]

Hi, I am running a macro which pops open a Browse for file window - However, if I press cancel I get "Run-time error '5': Invalid procedure call or argument"

The Code is:

Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.InitialFileName = "\\Server\Folder"
With fd
.Show
fLdr = .SelectedItems(1)
End With

What can I do to prevent this error message appearing if a user cancels the Browse window?

Thanks in advance,
Tom

[Leith Ross]

Hello Tomlancaster,

The Show method returns a value when the user presses either the action button (-1) or cancel (0). You can test it to exit the Sub.

Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.InitialFileName = "\\Server\Folder"
With fd
If Not .Show Then Exit Sub
fLdr = .SelectedItems(1)
End With