How do I total a series of checked boxes?

I have a line of activex checkmark control boxes. How do I total the number
of boxes that are checked?

Hi dayoungblood

Try this

Sub test2()
Dim i As Long
i = 0
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.CheckBox Then
If obj.Object.Value = True Then i = i + 1
End If
Next
MsgBox i
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"dayoungblood" <dayoungblood@discussions.microsoft.com> wrote in message news:80E86A3C-4EAB-46B6-89A2-5B24DE2D0037@microsoft.com...
>I have a line of activex checkmark control boxes. How do I total the number
> of boxes that are checked?

Oops you posted in functions

Or use a linked cell in the properties of each checkbox
And count the Tru's

=COUNTIF(A40:Z40,"True")



--
Regards Ron de Bruin
http://www.rondebruin.nl



"dayoungblood" <dayoungblood@discussions.microsoft.com> wrote in message news:80E86A3C-4EAB-46B6-89A2-5B24DE2D0037@microsoft.com...
>I have a line of activex checkmark control boxes. How do I total the number
> of boxes that are checked?