In diesem Beispiel wird die Seitenzahl links unten auf jeder Seite gedruckt.
Worksheets("Sheet1").PageSetup.LeftFooter = "&P"