I hope I understand this correctly: you have check boxes on a worksheet
that you want to toggle all to be checked or unchecked from one checkbox.
Does this code help? I have Excel 2003.
Private Sub CheckBox1_Click()
Dim controlCkBox As String
Dim obj As OLEObject
Dim ckbool As Boolean
controlCkBox = "CheckBox1"
For Each obj In ActiveSheet.OLEObjects
If obj.Name = controlCkBox Then
ckbool = obj.Object.Value
Exit For
End If
Next
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.CheckBox And _
obj.Name <> controlCkBox Then
obj.Object.Value = ckbool
End If
Next
End Sub
Bookmarks