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.