Merge All Sheets From All Selected Folders Into One Folder

[CoSinus]

Hello,
I have a good VBA that also works except for one small thing.
The script merges all excel files in a folder to a workbook. This works well as long as the file names are not too long.
With very long filenames the script aborts.

I know that the file names, which then become sheet names, cannot be indefinitely long. But it would be good if the script could then use the maximum possible length for sheet names without aborting.

Here is the VBA

Please Login or Register  to view this content.

I am very glad about your help.
Many greetings
Tom

[mjr veverka]

... if the script could then use the maximum possible length for sheet names without aborting.

For examle:

Please Login or Register  to view this content.

[CoSinus]

Thank you very much.

This line

Please Login or Register  to view this content.

Causes a stop.

I have a workbook called 'Production Facility Locations and Operating Conditions.xlsx'. I think that is where it stops.
The Skript should write the maximum amount of letters in the seehtname and cut off the rest.

Thanks again for further help.