Kolommen in geselecteerde werkbladen verbergen

[FredvN]

Goedemorgen,
Met onderstaande code wil ik kolom J:M in meerdere werkbladen verbergen

 Sub VerbergKolommen()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
    If (ws.Name <> "VOORBLAD" Or ws.Name <> "INHOUDSOPGAVE" Or ws.Name <> "Bevindingen Algemeen") Then
    ws.Columns("J:M").Hidden = True
 End If
Next
End Sub

Ik krijg de code niet geheel werkend omdat op de bladen "VOORBLAD" etc óók kolom J:M wordt verborgen, en dat is niet de bedoeling...
Kan ik me eigenlijk wel voorstellen zie de code in regel "For Each", dus hier zal ongetwijfeld de fout zitten.

Vraag: welke aanpassing moet ik doen om deze code werkend te krijgen?
Het aantal werkbladen ná "Bevindingen Algemeen" kan variëren.

Vast bedankt voor de hulp!

 

[VenA]

Probeer het zo eens

Sub VerbergKolommen()
Dim sh
For Each sh In Sheets
    If sh.Name <> "VOORBLAD" And sh.Name <> "INHOUDSOPGAVE" And sh.Name <> "Bevindingen Algemeen" Then sh.Columns("J:M").Hidden = True
Next
End Sub

 

[FredvN]

Hallo VenA,
Geweldig, het werkt!
Dank voor de zeer snelle respons!