Thread: How do I total a series of checked boxes?
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Ron de Bruin Ron de Bruin is offline
external usenet poster
  
Posts: 11,123
Default How do I total a series of checked boxes?
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" wrote in message ...
I have a line of activex checkmark control boxes. How do I total the number
of boxes that are checked?


Reply With QuoteReply With Quote