If they are in a userform then try this

Dim ctl As Control
Dim A As Long
A = 0
For Each ctl In UserForm1.Controls
If TypeOf ctl Is MSForms.CheckBox Then
If ctl.Value = True Then A = A + 1
End If
Next
MsgBox A


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


"Steven" wrote in message ...
I am looking for a way to count the number of checkboxes with a check in them. Can anyone help?

Thanks for your time...
Steven