Settings Value of all ActiveX Controls

[BadgerRoad]

Is there a way to set the value of all ActiveX controls on a worksheet without having the reference each one? For example, I have a bunch of CheckBoxes on a worksheet and want to set the value of each one to False.
Thanks in advance.

 

[Joe Was]

Private Sub CheckBox6_Click()
'UserForms Check Box's only!
Dim CBName$
Dim C As Control

For i = 1 To 5
CBName = "CheckBox" & i
For Each C In UserForm1.Controls
If (C.Name = CBName And C.Value = True) Then
C.Value = False
End If
Next C
Next i
End Sub

 

[Joe Was]

Sub ClearCBs()
'Forms Check Box's only!
Dim cb As CheckBox

For Each cb In ActiveSheet.CheckBoxes
If (cb.Value = 1 And cb.Caption <> myCap) Then
cb.Value = 0
End If
Next
End Sub