Seitenanzahl in Kopfzeile

ich möchte die Seitennummer und die Seitenanzahl per
VBA in die Kopfzeile bekommen.
Gerade habe ich im Archiv eine mögliche Lösung
gefunden. Der untenstehende Code soll in ein Standard-
modul eingegeben werden und mit einer Schaltfläche
versehen werden.

StandardModule: basMain
Sub KopfZeile()
With AcitveSheet
.PageSetup.LeftHeader = "Seite &P von &N"
.PrintPreview
End With
End Sub

Nur leider kommt dann immer diese Fehlermeldung:
Fehler beim Kompilieren
Außerhalb einer Prozedur ungültig.

Kann mir jemand helfen ?

Gruß
Ralf