Recursively add copy worksheet

[antros48]

Hi all,
I need to add a sheet from active workbook to the end of each workbooks located in a folder (and subfolders).
I have already tried and succeed using the code for the root directory of a folder but cannot get it to work recursively entering in each subfolder and search for xlsm files. The code is one i found on the internet adjusted in my characteristics.

Any help appreciated.
Thank you.

Please Login or Register  to view this content.

[AlphaFrog]

Please Login or Register  to view this content.

[antros48]

Thank you for the reply.
I will test the code when i get back to the office.
I just want to ask about the line Application.ScreenUpdating = False, does this suppress the warning message about macro security or only about saving?