Merge data from all bar 2 sheets

[Eurekaonide]

Dear All

I am trying to copy data from all sheets in one workbook but NOT copy from the HOME sheet and the Prog_Dep sheet, here is my code it copies but also copies these two sheets that I do not want it too.

Sub CombineData()
Dim ws As Worksheet

For Each ws In Worksheets

If ws.Name <> ("Prog_Dep") Or ws.Name <> ("HOME") Then ws.Select


Range("A1:J25").Copy
Sheets("Prog_Dep").Select

Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste



Next ws


End Sub

 

[jmacleary]

Hi there. Try this:

Sub CombineData()
Dim ws As Worksheet

For Each ws In Worksheets

If ws.Name <> ("Prog_Dep") And ws.Name <> ("HOME") Then
    ws.Select
    Range("A1:J25").Copy
    Sheets("Prog_Dep").Select
    
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
End If
Next ws
End Sub

 

[Eurekaonide]

Thank you so so much

 

[Eurekaonide]

Just as a query how many And's can you use ? for example if I have 5 sheets I want it to ignore do I just repeat the AND code?

 

[Excel Planet]

Just as a query how many And's can you use ? for example if I have 5 sheets I want it to ignore do I just repeat the AND code?

Yes