Fortlaufende Seitenzahlen ausschalten

Hallo,

ich kann über ein entsprechendes Formular auswählen, welche Tabellenblätter ich haben möchte und generiere über VBA
aus den gewählten Tabellenblättern ein PDF. Innerhalb der Tabellenblätter gibt es auch welche, die 1-4 Seiten haben und ich
da in der Fußzeile die Seitenzahlen anzeige.

Wenn ich das nun so mache, wird bei den Seitenzahlen ja immer die Anzahl aller Seiten verwendet. "Erste Seite anders"
habe ich schon umgesetzt. Gibt es in Excel oder VBA die Möglichkeit das irgendwie auszuschalten? Oder bleibt mir nur die
Möglichkeit das statisch bei den betreffenden Blättern einzutragen?

Ein Automatismus wäre natürlich super ;-)

Nachfolgend der Codeschnipsel der das PDF erzeugt.

        If IsArray(varBlatt) Then
            ActiveWorkbook.Sheets(varBlatt).Select
            ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=KDPrint, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
            Application.ScreenUpdating = True
            Erase varBlatt