I'm using this macro.

Dim vFilename
vFilename = Application.Dialogs(xlDialogOpen).Show
If vFilename < False Then
On Error Resume Next
End If

And the macro works good when you select a file.
You can chose also Cancel in the open box, and if you do
the macro runs instead of ending.

How c

Thx
Tom