Hi,
The following code puts the current date into the left Footer:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Format(Date, "d-mmm-dd")
End Sub
or "dd-mmm-dd"
1. To add this code to your file, press Alt+F11,
2. In the VBAProject window, top left side, find thisWorkbook under your
file name and double click it.
3. Paste in or type the code above.