Would like a Macro to Combine data from the same worksheet in multiple files into one

I have 10 different files in 1 folder. Each file has multiple worksheets and each worksheet is named. All the files have a worksheet named "Out". All the columns in this worksheet named "Out" are the same with different data in each column. I would like to see the VBA code for a macro that would take the data from the same worksheet in all the files and combine the data into one file.

Thanks,

Mike

Sintek:

The macro functions as desired but at the end there is a warning message that the main workbook is already open and do you want to reopen it ?

How to make that go away ?

I simply ran the macro. No other testing.

Have to step away for a few hours.

I'm thinking there is a setting in Excel that I am overlooking. But I don't know what or where.

Here is another macro that does the same thing of copy/paste and then reopens the workbook as read only. I can't figure that out either.
There are a number of code lines that are commented out during my testing for different solutions.

Please Login or Register  to view this content.

Sintek :

After much more research I located the issue with my macro.

Change this line of code : Set sourceWb = Workbooks.Open(folderPath & fileName, ReadOnly:=True)

To this : Set sourceWb = Workbooks.Open(folderPath & fileName, ReadOnly:=False)

Problem solved.



With your macro I was able to solve my issue with these changes :

Please Login or Register  to view this content.

Thank you for your time.