In diesem Beispiel wird das Datum rechts oben auf jeder Seite gedruckt.
Worksheets("Sheet1").PageSetup.RightHeader = "&F"