voettekst in tabbladen in 1x aanpassen

[shanna]

Ik heb een bestand met vrij veel tabbladen, kan ik van alle tabbladen
tegelijk de voettekst ingeven?

gr

Shanna

 

[Wigi]

Zoiets

Sub VoettekstenAanpassen()

    Dim ws As Worksheet
    
    For Each ws In Sheets
    
        With ws.PageSetup
            .LeftFooter = "wigi"
            .CenterFooter = "is the"
            .RightFooter = "max! ;-)"
        End With
        
    Next

End Sub

Wigi

 

[shanna]

het werkt en bedankt wigi

 

[richard1970]

Waarom via VBA?
Klik met de rechter muisknop op een tabblad en kies de optie 'Alle bladen selecteren'. Ga dan via Bestand > Pagina-instelling > Kop en Voettekst.
Voer je wijziging door en klik op OK.

Klaar.

Richard

 

[Wigi]

Waarom via VBA?

Omdat ik aan de andere methode niet gedacht heb ;-) Merci om het te vermelden.