View Single Post
 
Old 08-11-2014, 01:30 PM
Cosmo Cosmo is offline Windows Vista Office 2007
Competent Performer
 
Join Date: Mar 2012
Posts: 240
Cosmo is on a distinguished road
Default

If the user cancels, then .SelectedItems.Count will be 0.


If (.SelectedItems.Count > 0) Then

For j = 1 To .SelectedItems.Count
Documents.Add .SelectedItems(j)
Next
else
' Nothing selected.
Exit Sub
end if
Reply With Quote