I have a workbook with about 20 worksheets. I need to be able to change the
date that is typed into the header. Is there a way to reference a cell with
the date that I want as part of my header. Any help or direction would be
nice.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "&""Verdana""&8 " & _
Format(Activesheet.Range("A1").Value, "dd-mm-yyyy")
End Sub

Placed in the ThisWorkbook Module.

--
Regards,
Tom Ogilvy


"Judd Jones" wrote in message
...
I have a workbook with about 20 worksheets. I need to be able to change
the
date that is typed into the header. Is there a way to reference a cell
with
the date that I want as part of my header. Any help or direction would be
nice.

The information that you gave me works good, but I have tested it with
mulitple sheet selected and it does not update all sheets. Any suggestions.

I also tested the same code as part of the before save function:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = Format(Sheets("data").Range("A1").Text,
"[$-409]mmmm d, yyyy;@")
End Sub

It also will not update all sheets.

"Tom Ogilvy" wrote:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "&""Verdana""&8 " & _
Format(Activesheet.Range("A1").Value, "dd-mm-yyyy")
End Sub

Placed in the ThisWorkbook Module.

--
Regards,
Tom Ogilvy


"Judd Jones" wrote in message
...
I have a workbook with about 20 worksheets. I need to be able to change
the
date that is typed into the header. Is there a way to reference a cell
with
the date that I want as part of my header. Any help or direction would be
nice.

You will have to loop through your sheets and execute it.

While manually, you can group sheets and do this, it doesn't work in VBA.

--
Regards,
Tom Ogilvy

"Judd Jones" wrote in message
...
The information that you gave me works good, but I have tested it with
mulitple sheet selected and it does not update all sheets. Any
suggestions.

I also tested the same code as part of the before save function:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
ActiveSheet.PageSetup.CenterHeader =
Format(Sheets("data").Range("A1").Text,
"[$-409]mmmm d, yyyy;@")
End Sub

It also will not update all sheets.

"Tom Ogilvy" wrote:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "&""Verdana""&8 " & _
Format(Activesheet.Range("A1").Value, "dd-mm-yyyy")
End Sub

Placed in the ThisWorkbook Module.

--
Regards,
Tom Ogilvy


"Judd Jones" wrote in message
...
I have a workbook with about 20 worksheets. I need to be able to
change
the
date that is typed into the header. Is there a way to reference a cell
with
the date that I want as part of my header. Any help or direction would
be
nice.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.LeftHeader = .Range("A1").Text
End With
End Sub

This code should go in the ThisWorkbook code module.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Judd Jones" wrote in message
...
I have a workbook with about 20 worksheets. I need to be able to change
the
date that is typed into the header. Is there a way to reference a cell
with
the date that I want as part of my header. Any help or direction would be
nice.

I'm trying to do something in my workbook that this code is close to doing,
but not quite.
1. I'm adding new sheets and want to put the code in each new sheet. I have
code to go through the new sheets, but how do I add code to a sheet?
2. I want to put this in the Center, not left.
3. I want the Center Header to have two lines:
TECHNICIAN JOB SUMMARY
For Date Range: (SheetName!CellNumberBeginDate) to
(SheetName!CellNumberEndDate) Example: For Date Range: 09-01-06 to 09-30-06
(My dates are in this format, mm-dd-yy)

Your help would be appreciated!
And again, thank you for fixing my other problem this morning!!

David

"Bob Phillips" wrote:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.LeftHeader = .Range("A1").Text
End With
End Sub

This code should go in the ThisWorkbook code module.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Judd Jones" wrote in message
...
I have a workbook with about 20 worksheets. I need to be able to change
the
date that is typed into the header. Is there a way to reference a cell
with
the date that I want as part of my header. Any help or direction would be
nice.