Tabladen selecteren en kolommen verbergen. (Excel)

[SQL][/SQL]Hallo mensen,
Long time reader, first time poster.

Ik heb een document (bladen met algemene informatie en bladen met begrotingen ) waarin constant nieuwe tabbladen worden toegevoegd en oude worden verwijderd/verborgen, nu heb ik een macro waarin ik steeds de oude en nieuwe namen aanpas maar dit blijft een gedoe.

Nu wil ik graag een macro die tabbladen selecteert als het woord "Resultaat" voorkomt op het blad EN moeten de Rijen waarin in kolom B "verbergen" staat verborgen worden.
( ik ben vrij nieuw in VBA en heb wat pogingen gedaan met macro opnemen maar dit leverde helaas weinig op.

Dit is wat ik heb: Zoekt op tabbladen die ik heb ingevoerd naar "verbergen" en verbergt deze, maar deze lijst moet ik steeds langslopen en aanpassen.

Sub verbergen()
Dim blad(93) As String
Dim i As Integer
blad(0) = "2002"
blad(1) = "2003"
.... hele lijst.
blad(93) = "8013"
For i = 0 To 93
Sheets(blad(i)).Select
For Each c In Range("$B$2:$B$" & Range("B65500").End(xlUp).Row)
If InStr(1, c.Text, "verbergen", 1) Then
Rows(c.Row).Hidden = True
End If
Next
Next i
End Sub


Mankeert er iets aan mijn post dan hoor ik het graag.
Alvast bedankt