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