end Macro after cancelling open dialog

  • Thread starter Thread starter Guest
  • Start date Start date
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
 
Hi
Dim vFilename
vFilename = Application.Dialogs(xlDialogOpen).Show
If vFilename = False Then Exit Sub
'do your other stuff

HTH
Cordially
Pascal
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

close a file ater opening with GetOpenFileName 2
ActiveWorkbook.Close True 6
Open Workbook Question 1
Do not copy code from template 2
Dialog Box 2
Import multiple csv files into current workbook as separate sheets 3
Problem w/ Print Macro 3
Capturing 'Cancel' on Applicaiton.Dialogs(xlDialogOpen).Show FilePathAndName 4

Back
Top