Cycle through worksheets and sum

I want to write some VBA to cycle through all worksheets in a workbook and
copies the value 4 cells across from the one that contains "Total" into Row B
of my totals workshets, and also the value in cell D10.

Ideas?

Thanks

Dave

To loop through all the worksheets

For Each sh In Activeworkbook.Worksheets
....
Next sh

To find "Total", look at the Find method in VBA help.

To offset by 4 cells, use

Offset(0,4)

The value in D10 can be addressed directly

Range("D10").Value

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"David M C" <[email protected]> wrote in message
news:[email protected]...
> I want to write some VBA to cycle through all worksheets in a workbook and
> copies the value 4 cells across from the one that contains "Total" into
Row B
> of my totals workshets, and also the value in cell D10.
>
> Ideas?
>
> Thanks
>
> Dave