Array

[NPell]

Hello,

I had some VBA code that i have tried to condense into an Array but
with no success, can anyone help?


BEFORE....

Sheets("Summary").Select

Sheets("Tab1").Rows("2:100").Copy
lastrow = Sheets("Summary").Range("A65000").End(xlUp).Row
Sheets("Summary").Range("A" & lastrow + 1).PasteSpecial
Application.CutCopyMode = False

Sheets("Tab2").Rows("2:100").Copy
lastrow = Sheets("Summary").Range("A65000").End(xlUp).Row
Sheets("Summary").Range("A" & lastrow + 1).PasteSpecial
Application.CutCopyMode = False

Sheets("Summary").Select

AFTER...

Sheets("Summary").Select
For Each Sheet In Array("Tab1", "Tab2")
Rows("2:100").Copy
lastrow = Sheets("Summary").Range("A65000").End(xlUp).Row
Sheets("Summary").Range("A" & lastrow + 1).PasteSpecial
Application.CutCopyMode = False
Next Sheet
Sheets("Summary").Select

It just doesnt work? Can anyone spot my error(s) ??

Thanks

 

[Mike H]

Hi,

Try this

Sub after()
Dim sh As Worksheet
For Each sh In Worksheets(Array("Tab1", "Tab2"))
sh.Rows("2:100").Copy
lastrow = Sheets("Summary").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Summary").Range("A" & lastrow + 1).PasteSpecial
Application.CutCopyMode = False
Next sh
End Sub

Mike