How to select checkBoxes as a group in

[Fendic]

hi, does anyone know how to select checkBoxes as a group by programmin
in Excel VBA?

I need to programm a 'checkAll' checkBox to set all checkBox value t
be true. how can I control them as a group?

Thanks a lot.
Fendic :

 

[Guest]

With your "checkall" checkbox being "checkbox1", try this in a standard module:

Private Sub CheckBox1_Click()
Dim OLEobj As OLEObject
For Each OLEobj In ActiveSheet.OLEObjects
If TypeOf OLEobj.Object Is MSForms.CheckBox Then
If OLEobj.Name <> "CheckBox1" Then
OLEobj.Object.Value = ActiveSheet.OLEObjects("CheckBox1"). _
Object.Value
End If
End If
Next OLEobj
End Sub
---
To use, press ALT+F11. Go to Insert > Module. Paste in the code. Press ALT+Q.

HTH
Jason
Atlanta, GA