Sub test()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
'sh.Select
sh.Range("a1").Value = 30
Next sh
End Sub

Remember in the most cases you don't have to activate /select the worksheet or cells

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Steve" wrote in message link.net...
I have a workbook with 12 worksheets named Jan-03 to Dec-03. What would be the
code to start at the first worksheet and loop through all the worksheets making
each worksheet active one at a time, doing some processing on the active
worksheet and then going to the next worksheet?

Thanks for your help!

Steve