Array

  • Thread starter Thread starter NPell
  • Start date Start date
N

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
 
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
 
Back
Top