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)
> 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
[quoted text clipped - 5 lines]
>
> Dave