On Mar 1, 8:54 am, Dave Peterson wrote:
That would work if the multiselect:=true wasn't there.

if isarray(fname) = false then exit sub

should work.





Jim Cone wrote:

If you cancel the dialog then you have to exit the sub or it
continues on until it errors. Add this line before "Counter = 1"...
"If FName = False Then Exit Sub"
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware

"Sinner"
wrote in message
Hello
Below is a code to upload multiple delimited text files in to single
workbook in multiple sheets.
When I run it, a dialog box for file selection opens from where I can
goto my files and select one or multiple files. Problem is that when I
press cancel or close the dialog to return back without selecting any
file, it gives a runtime error'13': type mismatch. When I debug, it
refers to error in the following line
While Counter <= UBound(FName)
Any idea??
Thanks

-snip-

--

Dave Peterson- Hide quoted text -

- Show quoted text -



Dear Jim & Dave,

Thanks for your reply.
Jim it works for single file. Thanks.
Yup dave its a multi select. It works :)

Grateful to both of you.
Godbless.

Stay in touch.