Kopfzeile auf der ersten Seite anders


Ist es möglich, die Kopfzeile auf der 1. Seite anders
als auf allen anderen Seiten zu gestalten ? 
Sub KopfZeilenDruck()
   Anzahl = ExecuteExcel4Macro("Get.Document(50)")
   For Seite = 1 To Anzahl
   If Seite = 1 Then
      KopfZeile = "Test !"
   Else
      KopfZeile = ""
   End If
   With ActiveSheet.PageSetup
      .LeftHeader = ""
      .CenterHeader = KopfZeile
      .RightHeader = ""
      .LeftFooter = ""
      .CenterFooter = ""
      .RightFooter = ""
   End With
   ActiveWindow.SelectedSheets.PrintOut _
       From:=Seite, To:=Seite, Copies:=1, Collate:=True
   Next Seite
End Sub