Meerdere kolommen verbergen /zichtbaar maken

[don42]

beste helpers,

ik wil graag een aantal kolommen verbergen/zichtbaar maken via een wisselknop
dit om bepaalde gegevens niet te publiceren (maak er een pdf van)

voor 1 tabblad is het mij gelukt met:

Private Sub ToggleButton1_Click()
Sheets("1").Range("C:C,F:F,I:I,L:L,O:O,R:R,U:U").Columns.Hidden = ToggleButton1
End Sub

het gaat om opeenvolgende tabbladen genummerd van 1 t/m 53
wie o wie helpt me verder

 

[edmoor]

Zoiets:

Private Sub ToggleButton1_Click()
    For i = 1 To 53
        Sheets(i).Range("C:C,F:F,I:I,L:L,O:O,R:R,U:U").Columns.Hidden = ToggleButton1
    Next i
End Sub

 

[don42]

Bedankt

Dit was ik aan het zoeken
:thumb:

 

[cow18]

Sheets([COLOR="#FF0000"]cstr(i)[/COLOR]).Range("C:...

tabblad "10" is niet altijd het 10e tabblad !