Hi Rick,
I tried your code but it gave a "Type mismatch" error at line
For X = LBound(FilesToOpen) To UBound(FilesToOpen)
Locals window displayed the type of FilesToOpen to be Variant/String, not an
array as it was expected.
Regards,
Stefi
€˛Rick Rothstein (MVP -
VB)€¯ ezt Ć*rta:
Give this code a try...
Dim X As Long
Dim FilesToOpen As Variant
FilesToOpen = Application.GetOpenFilename(MultiSelect:=True)
For X = LBound(FilesToOpen) To UBound(FilesToOpen)
MsgBox "Selected File #" & X & ": " & FilesToOpen(X)
Next
Don't pick too many files as you should get a MsgBox for each one you
select.
Rick
"fallowfz" wrote in message
...
That's what I ran into as well. Thanks for giving it a shot.