Macro to copy specific sheets and paste these on respective sheet in destination workbook

[howard]

I am looking for code to open multiple workbooks and to copy sheets called "Dep by Cost Centre" from several workbooks and paste these into seperate sheets on the destination workbook


It would be appreciated if someone could kindly provide me with the code to do this


I have also posted on macro to copy specific sheet and paste on sheet with same name in Cell A1 on source sheet

​

 

[howard]

I have code to open multiple files and to copy data but need help in amending the code per my requirements in post # 1

 sub Open_Workbook()
ChDir ("C:\fixed assets")
A:
Dim A     As Variant
Dim LR As Long
     A = Application.GetOpenFilename(MultiSelect:=True)
    If TypeName(A) = "Boolean" Then Exit Sub
   
    Dim file As Variant
   
    Application.ScreenUpdating = False
   For Each file In A
        With Workbooks.Open(file)

    
        With Sheets(1)
            .Range("a1", .Range("J" & Rows.Count).End(xlUp)).Copy _
                Destination:=ThisWorkbook.Sheets("Data Import").Range("A" & Rows.Count).End(xlUp).Offset(1)
       
        
        End With
 
        .Close SaveChanges:=False
    End With
Next
Application.ScreenUpdating = True
End Sub