header/footer

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Talladega - 01 Jun 2007 19:07 GMT

I have around 30 worksheets. The header on each of the worksheet has its own
separate title. I only want to change the third row to the current month.
Is there a way to do this by group selecting to only change the date and
leaving the other two rows the same? Here's an example.

Indy 500 Indy 500
Racing Racing
04/30/07 05/31/07

Ironman Ironman
Decathlon Decathlon
04/30/07 05/31/07

Reply to this Message

Dave Peterson - 01 Jun 2007 19:44 GMT

As long as there's nothing else in that cell, you could try this:

Rightclick on any worksheet tab
choose Select all sheets
Select A3 (or whatever cell contains that date)
type the date and hit enter
rightclick on any of the tabs and select Ungroup Sheets.

> I have around 30 worksheets. The header on each of the worksheet has its own
> separate title. I only want to change the third row to the current month.
[quoted text clipped - 8 lines]
> Decathlon Decathlon
> 04/30/07 05/31/07

Signature

Dave Peterson

Reply to this Message

JMay - 15 Jun 2007 11:54 GMT

Here's another approach...
Rename your SheetNames to:, example (1)
Indy500-Racing
In cell G1 (or Z1 somewhere) of this sheet enter: 4/30/2007
On all subsequent sheets in Cell G1 enter ='Indy500-Racing'!$G$1
So when you change only G1 of Indy500-Racing G1 all your other
sheets also change (to say 5/31/2007).

Paste this code into your Thisworkbook module:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = ActiveSheet.Name & vbCrLf _
& Format(Range("G1"), "mm/dd/yy")
End Sub

Reply to this Message