Checkboxen linken aan elkaar

[J3ro3ns]

In Excel gebruik ik checkboxen en die link ik aan elkaar zodat er een soort sub- en maincheckboxen ontstaan.
Een main-checkbox heeft een x aantal sub-checkboxen onder zich. Door een main-checkbox aan of uit te zetten, gaan ook alle bijbehorende sub-checkboxen automatisch aan of uit.
Om dit te realiseren gebruik ik onderstaande eenvoudige VBA code en dit werkt (zie ook de bijlage).

In mijn model heb ik echter tientallen maincheckboxen en subcheckboxen en daarbij wordt het handmatig aanpassen van onderstaande code erg bewerkelijk.
Is er een manier om dit handiger te doen bij grote aantallen?

Private Sub CheckBox5_Click()
If CheckBox5 = True Then
    CheckBox1.Value = True
    CheckBox2.Value = True
    CheckBox3.Value = True
    CheckBox4.Value = True
Else
    CheckBox1.Value = False
    CheckBox2.Value = False
    CheckBox3.Value = False
    CheckBox4.Value = False
End If
End Sub

 

[HSV]

Private Sub CheckBox5_Click()
For i = 1 To 4
With Sheets("Blad1")
 .OLEObjects("checkbox" & i).Object.Value = IIf(.OLEObjects("CheckBox5").Object.Value = True, True, False)
 End With
Next
End Sub

 

[HSV]

Het staat op opgelost zonder enige reactie, dus zal het wel goed zijn bevonden.
Ik hoop dat het geen rage wordt,... dan kap ik er mee.

 

[J3ro3ns]

Beste Harry,

De vraag is inderdaad opgelost met jouw code.
Dit is precies wat ik zocht!

Onwijs bedankt voor de snelle reactie.

Groet Jeroen