Stefi,

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.


Did you change this line:
Dim FilesToOpen As Variant
to
Dim FilesToOpen As array?

If you did, that is what's causing the type mishmash.

Cliff Edwards