'Excel-VBA/Rijen verbergen.VBA' toevoegen

Excel-VBA/Rijen verbergen.VBA

@@ -0,0 +1,23 @@
+'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