Checkbox laten toveren

[mvewijk]

Hi,

Momenteel ben ik bezig een macro aan checkbox te koppelen.
De macro moet ervoor zorgen dat wanneer de checkbox afgevinkt is, een aantal nieuwe rijen tevoorschijn komen. Dit is om te voorkomen dat niet stap 3 afgevinkt kan worden, voordat stap 1 en 2 zijn doorlopen.
Mijn Sub ziet er als volgt uit, maar vraagt om een object toe te wijzen. Iemand een tip?

Sub Selectievakje246_Klikken()
If Selectievakje246.Value = True Then
Rows("13:21").Select
Selection.EntireRow.Hidden = False
End If
If Selectievakje246.Value = False Then
Rows("13:130").Select
Selection.EntireRow.Hidden = True
End If
End Sub

Alvast bedankt.

 

[HSV]

Probeer eens een Checkbox van de ActiveX-besturingselementen.

Private Sub CheckBox1_Click()
   If CheckBox1.Value = True Then
      Rows("13:21").EntireRow.Hidden = False
    Else
  Rows("13:130").EntireRow.Hidden = True
 End If
End Sub

Maar deze vraag hoort volgens mij bij VBA.