How to select checkBoxes as a group in

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

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

Thanks a lot.
Fendic

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




"Fendic" wrote:

>
> hi, does anyone know how to select checkBoxes as a group by programming
> in Excel VBA?
>
> I need to programm a 'checkAll' checkBox to set all checkBox value to
> be true. how can I control them as a group?
>
> Thanks a lot.
> Fendic
>
>
> --
> Fendic
> ------------------------------------------------------------------------
> Fendic's Profile: http://www.excelforum.com/member.php...o&userid=23959
> View this thread: http://www.excelforum.com/showthread...hreadid=376953
>
>