'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