Hi

You can use the format function
Copy this event in the Thisworkbook module

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
sht.PageSetup.LeftFooter = Format(Now, "dd-mm-yy")
Next sht
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Twoo Doggs" wrote in message ...
How can the format of the current date be changed in an Excel Header or Footer when printing a document from Excel?
--
Paul M