Summing checked checkboxes

I have a sheet with 3 columns - each containing 15 checkboxes.

I need to sum the qty of each of the checked boxes in each column.


The resultant value for each column needs to be pushed to a cell for comparison. (Let's say R1C1 R1C2 R1C3)

This has to be done in realtime - no running macros or pushing buttons, so I'm guessing some variant of OnChange event ...

This is a simple piece of code that works, but only for the entire sheet, and only works on command.

Sub Find_Checkbox_State()
Dim CB As CheckBox
Dim Checked_box As Integer

Checked_box = 0
For Each CB In ActiveSheet.CheckBoxes
If CB.Value = 1 Then
Checked_box = Checked_box + 1
End If
Next CB

any takers?

EDITORIAL NOTE: You dont really need to check for "IF CB.Value = 1" , just add them all...Checked_box = abs(CB.Value )

SOLUTION:
Instead of using activeX control checkboxes (that give no reference to column), use FORM CONTROL check boxs..the values go into cells.
You dont have to scan each check box, Just look at the cell that sums the column. Its always LIVE!

I was actually trying to get away from filling cells up with data .. then you have to start hiding cells/rows/columns/sheets, then of course .. protecting.
I was looking to streamline by making the code do the background stuff.

Then you made it harder...you cant tell where the checkbox goes to what cell. I used 'outer' cells, like XAA.
Form controls elimitate these headaches.

OK.
Yes you are absolutely right. This will work.
And ultimately that's what I want.

I'm still looking for an alternate solution, however.

hmmm.
Disappointing.
I thought - given the name of this forum - that solutions suggested might have been in VBA format, as opposed to using native Excel functions.
I was originally using native functionality, but wanting to reach a little higher.
Onwards and outwards!
Thanks for the attempt.