Voettektst tabbladen dmv macro

[dbk]

Goedemorgen,

Ik heb een macro voor het plaatsen van een voettektst onderaan een sheet.
Ik wil deze graag ombouwen dat alle tabbladen in het document dezelfde voettekst krijgen (onafhankelijk wat op dat moment de voettektst instellingen zijn).

Mijn code is als volgt:

Sub voettektst_center()
 
      'leegmaken van centervoettektsten
      ActiveSheet.PageSetup.CenterFooter = ""
           
           
       'opnieuw instellen van de centervoetteksten voor pagina nummering
       ActiveSheet.PageSetup.CenterFooter = "      &""Arial ,Standaard""&14 Pagina &P - &N"

End Sub

Ik heb al een aantal optie's geprobeerd, maar alleen maar foutmeldingen.
Zoals gezegd dienen alle tabbladen geselecteerd te worden en deze instelling te krijgen.

Alvast bedankt voor de hulp.

Groet,
DBK

 

[Roncancio]

Via een lus worden alle werkbladen aangepast.

Sub voettektst_center()
Dim Werkblad As Worksheet
     For Each Werkblad In Worksheets
      'leegmaken van centervoettektsten
     Werkblad.PageSetup.CenterFooter = ""
           
           
       'opnieuw instellen van de centervoetteksten voor pagina nummering
        Werkblad.PageSetup.CenterFooter = "      &""Arial ,Standaard""&14 Pagina &P - &N"
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[dbk]

Bedankt Roncancio voor je snelle reactie. :thumb:

Ik heb de code ingevoegd en hij werkt als een trein.


Bedankt!

Groet,
DBK