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?