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.