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

--
Regards,
Tom Ogilvy

"Mike" wrote in message
...
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?

Hi Mike

Check out this also
http://www.rondebruin.nl/copy2.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Mike" wrote in message
...
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?