With Application With .ActiveSheet With .PageSetup .RightHeader = Format(Now(), "dddd, mmmm dd, yyyy") ' Saturday, July 13, 2019 .RightFooter = "Page &P of &N" ' Page 1 of 2 End With
Date Formats → https://powerspreadsheets.com/vba-format-date/#Format-Date-Using-VBA-Display-Several-Items-Of-The-Date
&Foo Examples → https://docs.microsoft.com/en-us/office/vba/excel/concepts/workbooks-and-worksheets/formatting-and-vba-codes-for-headers-and-footers