end Macro after cancelling open dialog

G

Guest

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
 
P

papou

Hi
Dim vFilename
vFilename = Application.Dialogs(xlDialogOpen).Show
If vFilename = False Then Exit Sub
'do your other stuff

HTH
Cordially
Pascal
 
Top