Merge worksheet into one Workbook

[VbaHell]

Hello all

I hope you can help on this please

The code below merges all workbook into one worksheet

What I need is to merge only one worksheet from each workbook named TEST into one worksheet

Set dirObj = mergeObj.Getfolder("C:\Users\Fred\Desktop\Test\")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)
 
Sheets(Projects).Range("A7:I" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
 
Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
bookList.Close
Next

 

[Fluff]

Try

For Each EveryObj In filesObj
   Set bookList = Workbooks.Open(EveryObj)
    
   With bookList.Sheets("Test")
      .Range("A7:I" & .Range("A65536").End(xlUp).Row).Copy
   End With
   ThisWorkbook.Worksheets(1).Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial
   Application.CutCopyMode = False
   bookList.Close
Next

 

[VbaHell]

Works great, thank you very much

 

[Fluff]

You're welcome & thanks for the feedback