Hi,

Right click yoor sheet tab, view code and paste this in and run it.


Sub Checked()
Dim Obj As OLEObject
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CheckBox Then
If Obj.Object.Value = True Then Count = Count + 1
End If
Next
Set Obj = Nothing
MsgBox Count
End Sub

Mike

"Leigh Douglass" wrote:

HI

I have a sheet with 4 tick box controls on it, i would like a peice of vb
code that would add them up if they have a check in them. I have no idea
where to start.

Thanks in advance for the help.

Leigh