What would be the source of "X"?

Assume it is in A1 of each sheet...........

Sub Cell_In_AllHeaders()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.PageSetup.CenterHeader = "Total Items - Period " _
& ws.Range("A1").Value & " 2007 YTD"
Next
End Sub


Gord Dibben MS Excel MVP


On Tue, 8 Jan 2008 13:28:01 -0800, Juan wrote:

Hello,
I have about 6 sheets and each has a Page Header
Example,
Total Items - Period X, 2007 YTD, I'm trying to input an actual number in
the X,
Example, Total items - Period 12 2007 YTD. Its time consuming going
manually into each sheet an replace the X with the current Period.
Is there a way I can do this with a Macro?

I really would appreciate any info I can get
Thank you,
J