Summary of all worksheets

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I use a worksheet as a template for estimating take-offs. I need to summarize all sheets onto a single sheet, no matter how many. How do I loop through the sheets and copy certain cells onto the summary sheet? Any help is greatly appreciated.
 
Dim rw as Long, sh as worksheet
rw = 5
for each sh in Thisworkbook.Worksheets
if sh.name <> "Summary" then
worksheets("Summary").Cells(rw,"A").Value = sh.Name
worksheets("Summary").Cells(rw,"B").Value = _
sh.Range("B9").Value
rw = rw + 1
end if
Next

--
Regards,
Tom Ogilvy



Bryan said:
I use a worksheet as a template for estimating take-offs. I need to
Click to expand...
summarize all sheets onto a single sheet, no matter how many. How do I loop
through the sheets and copy certain cells onto the summary sheet? Any help
is greatly appreciated.
 
Back
Top