I think I got it! Thanks so much everyone for your help.

Greatly appreciated.

"Norman Jones" wrote:

Hi Steve,

Range("A1").Interior.ColorIndex = 3

Should be:

sh. Range("A1").Interior.ColorIndex = 3


---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Steve,

Try something like:

Sub Tester()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets

'Do your stuff, e.g.:
Range("A1").Interior.ColorIndex = 3
Next sh
MsgBox "Done!"
End Sub


---
Regards,
Norman



"Steve" wrote in message
...
Can someone lend some code that will allow me to open each worksheet in
my
workbook through code, make a change to the worksheet and move to the
next
until all worksheets have been updated. Then let me know the upate has
been
done to all worksheets in the workbook.

Thanks,