instellen van lange lijst checkboxen

[padmans]

ik heb met onderstaande code 3 checkboxen zo geprogrammeerd dat wanneer ik 1 checkbox aanvink de 2 anderen niet kunnen worden aangevinkt.
nu is het probleem dat ik dit voor 60 regels met telkens 3 checkboxen zou moeten doen.
is hier geen eenvoudigere manier voor?

Private Sub CheckBox1_Click()
If CheckBox2 = True Or CheckBox3 = True Then CheckBox1 = False
End Sub

Private Sub CheckBox2_Click()
If CheckBox1 = True Or CheckBox3 = True Then CheckBox2 = False
End Sub


Private Sub CheckBox3_Click()
If CheckBox2 = True Or CheckBox1 = True Then CheckBox3 = False
End Sub

 

[padmans]

als het moet kan ik de instructieknoppen weizigen naar iets anders, maar het liefst zou ik checkboxen willen gebruiken