In diesem Beispiel wird die Seitenzahl oben rechts auf jeder Seite gedruckt.
Worksheets("Sheet1").PageSetup.RightFooter = "&P"