Dim chk As CheckBox
Dim c As Long

For Each chk In ActiveSheet.Checkboxes
If chk.Value = Then c = c + 1
Next chk

MsgBox c


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Arfa" wrote in message
...
I would like to total the number of check boxs in a column, that have been
checked.

Using Excel 2003

Thanks
AL