Checkbox

[evstraalen]

Ik heb een stukje code gemaakt waarmee ik de eigenschap Enabled van een aantal checkboxen in een Excel sheet op False zet. Ik heb hierbij echter zeer omslachtig iedere CheckBox afzonderlijk ingevoerd in de code. Is het mogelijk dit op een efficiëntere manier uit te voeren?

Zie de code hieronder:

Sub BeveiligingCheckBox()


ActiveSheet.Shapes.Range(Array("CheckBox1", "CheckBox2", _
"CheckBox3", "CheckBox4", "CheckBox5", "CheckBox6", "CheckBox7", _
"CheckBox8", "CheckBox9", "CheckBox10", "CheckBox11", "CheckBox12", _
"CheckBox13", "CheckBox14", "CheckBox15", "CheckBox16", "CheckBox17", _
"CheckBox18", "CheckBox19", "CheckBox20", "CheckBox21", "CheckBox22", _
"CheckBox23", "CheckBox24", "CheckBox25")).Select
Selection.Enabled = False


End Sub

Alvast bedankt voor de hulp.

 

[Relleboer]

Sub BeveiligingCheckBox()
Dim Sh As OLEObject
For Each Sh In ActiveSheet.OLEObjects
If TypeName(Sh.Object) = "CheckBox" Then
Sh.Enabled = False
End If
Next Sh
End Sub

zo moet hij het doen

 

[evstraalen]

Heb de code vervangen; werkt perfect.
Heel erg bedankt; ik zet de vraag op opgelost.