Array

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
 
M

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top