Regarding data in multiple tabs in a workbook

  • Thread starter Thread starter Mike
  • Start date Start date
M

Mike

Have 100 tabs with identical headings for data. Need to
capture this data from each and place into one worksheet
into rows. Is there a way (formula/macro??) to grab data
without having to type the tab "sheet" number for each
worksheet?
 
Dim sh as Worksheet
for each sh in ActiveWorkbook.worksheets
if lcase(sh.Name) <> "summary" then
sh.Range("A1:Z26").Copy Destination:= _
worksheets("Summary").Cells(rows.count,1).End(xlup)(2)
End if
Next
 

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

Back
Top