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

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

HTH
Cordially
Pascal


a écrit dans le message de
...
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