diff --git a/Excel-VBA/Rijen verbergen.vba b/Excel-VBA/Rijen verbergen.vba
new file mode 100644
index 0000000..05dd0b2
--- /dev/null
+++ b/Excel-VBA/Rijen verbergen.vba	
@@ -0,0 +1,17 @@
+'Rijen met een "1" in kolom A verbergen
+
+    Sub verbergenrijen()
+            Dim X As Variant
+            Rows("13:112").Select
+    Selection.EntireRow.Hidden = False
+      Dim c As Range
+       For Each c In Range("A13:A112").Cells
+           If c.Value = "1" Then
+               c.EntireRow.Hidden = True
+           End If
+       Next c
+
+    Sheets("Samenvatting").Activate
+    MsgBox ("De verborgen rijen zijn aangepast")
+
+    End Sub
\ No newline at end of file