for checkboxes from the control toolbox toolbar on a worksheet

Dim obj as OleObject
Dim cnt as Long
Dim chkbx as Msforms.Checkbox
For each obj in Activesheet.OleObject
if typeof obj.Object is MsForms.Checkbox then
set chkbx = obj.Object
if chkbx = True then
cnt = cnt + 1
end if
end if
Next

For forms controls on a worksheet

Dim chkbx as Checkbox
Dim cnt as Long
for each chkbx in Activesheet.Checkboxes
if chkbx.Value = xlOn then
cnt = cnt + 1
end if
Next

--
Regards,
Tom Ogilvy


"Steven" wrote in message
...
Looking for a way to count the number of checkboxes with a check in them.

Thanks for your time,
Steven