Hi Steve,

Try:

'===========
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet

Set WB = ActiveWorkbook '<<==== CHANGE

For Each SH In WB.Worksheets
SH.Range("A3").Value = "Total"
SH.Range("B4").Value = "current"
Next SH

End Sub
'<<===========

---
Regards,
Norman


"STEVEB" wrote in
message ...

Hi All,

Does anyone have any suggestions for entering the text "Total" in Cell
A3 and "current" in Cell B4 on on each sheet in a workbook?

Any help would be greatly appreciated!


--
STEVEB
------------------------------------------------------------------------
STEVEB's Profile:
http://www.excelforum.com/member.php...fo&userid=1872
View this thread: http://www.excelforum.com/showthread...hreadid=489111