This subroutine inserts the current date in the footer of all sheets in the active workbook. This process can be accomplished without a macro, however, you'll need the macro if you want to specify the formatting of the current date. An example of the return generated by running this macro is Saturday, March 05, 2005.
Sub PutCurrentDateInCenterFooterAllSheetsInWorkbook() For Each oSheet In ActiveWorkbook.Sheets oSheet.PageSetup.CenterFooter = Format(Now(), "dddd mmmm dd, yyyy") Next End Sub
You can change the word CenterFooter to CenterHeader. You could also use LeftHeader, RightHeader, LeftFooter, or RightFooter.