Hi,
I think I'm fairly close to solving this problem, but I'm having
trouble grasping a key concept:

What I would like to be able to do is sum cells based on checkboxes
whose value is true and do nothing
if the checkboxes are not checked.

I have 29 Checkboxes i.e. CheckBox1...CheckBox29.

What I'm not sure how to do is associate each CheckBox with a specified
cell.

For example:

CheckBox1 is tied to Cell M12
..
CheckBox29 is tied to Cell M40.

Therefore, I'm trying to write code so that only the Checkboxes whose
values are True, then their associated cells are summed.

Another question is how do I direct the output of this summation of
checked cells. I would like it directed just to a single cell.

try this:

Sub SumCheckBoxes()
Dim obj As OLEObject
Dim dblValue As Double

For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.CheckBox.1" And obj.Object.Value Then
dblValue = dblValue + Range _
("M" & VBA.Replace(obj.Name, "CheckBox", "") + 11).Value
End If
Next obj

MsgBox dblValue
End Sub

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#