How to select checkBoxes as a group in
 

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 :

--
Fendi
-----------------------------------------------------------------------
Fendic's Profile: http://www.excelforum.com/member.php...fo&userid=2395
View this thread: http://www.excelforum.com/showthread.php?threadid=37695

How to select checkBoxes as a group in
 

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