refering to the msoFileDialogueOpen variants

smndnm · #20 07-19-2014, 07:54 PM

Hello,

This code currently does NOT exit gracefully when clicking cancel.

It causes a "Run time Error '5': invalid proedure call or argument."

I am thinking the problem occurs because there is no possible value to assign to 'Fldr', but then I also would have thought 'Exit Sub' meant Exit Sub now!!

Code:

 With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = "G:\Admin - MASTER\Customers\"
    .AllowMultiSelect = False
    .Title = "Select Destination Folder for the SWMS"
    If .Show = -2 Then Exit Sub
    Fldr = .SelectedItems(1)
End With

any suggestions?

Regards from a brisk Queensland

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Refering figure number too text	danzi	Word	1	01-20-2012 12:13 PM
Refering to photos on other pages	woodfind	Word	1	05-17-2010 01:52 AM