'Rijen verbergen op meedere tabbladen
'Van rij x t/m 109

Sub rijenverbergen()

Dim I
        Dim X As Variant
        X = ActiveSheet.Range("a4").Value
If MsgBox("Dit kan even duren, weet je het zeker? Bij akkoord graag wachten tot volgende popup!", vbYesNo) = vbNo Then Exit Sub
   For I = 1 To 100

       Sheets("(" & I & ")").Activate

'Onderstaande aanpassen
Rows("9:109").Select

Selection.EntireRow.Hidden = False
 
'Onderstaande aanpassen
Rows(X & ":109").Select

Selection.EntireRow.Hidden = True
Range("F9").Select