Page Header Macro?

[Juan]

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

 

[JP]

Hey Juan,

By "Page Header" do you mean the Header/Footer section in the Page
Setup? If so, try this:


For Each Sh In ActiveWorkbook.Worksheets
Msg = InputBox("What month?")
Sh.PageSetup.CenterFooter = "Total Items - Period " & Msg & ",
2007 YTD"
Next Sh

 

[Juan]

Hello JP,
thanks for the info. Yes I meant Header/Footer section.
I did a quick test changing Footer to Header and seems your code will do
just fine.

So thanks alot for your help.

Hope u had a great New Year.

 

[Gord Dibben]

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