Macro to copy cells from all worksheets found in all closed workbook in a network folder

[Chrispelletier]

Hello,

I have a monthly report that I have to generate that is quite time consuming so I am looking to speed up the process with a macro and would need help.

I am looking for a macro that does the following in a network folder containing closed macro workbooks (.xlsm):

Cycle through all the worksheets found in all the closed workbooks found in the network folder and report the following in the active workbook:
-Indicate the name of the workbook in column A starting at A2
-Indicate the name of the worksheet in starting B at column B2
-Copy cells B30, B43, B60, B64 from each individuals worksheets in the closed workbooks found and pasted the content of those cells horizontally into the active workbook in cells starting at C2, D2, E2, F2.

I have also attached an example workbook so you can see what I am looking for.

I do have several macros that does each part of the macro but I am unable to combine them together in a simpler version. I am including below code that I used in another project that could be a starting point specifically in copying the cells but it was coded to copy only once the data and from a specified workbook and no cycle through all workbooks. Maybe it is better also to start fresh, I will let you decide. Thanks in advance for your time in helping me out.

Please Login or Register  to view this content.