Geoff,
How depends on which toolbox you used, here's both ways
Sub Test()
'from the Controls tolbar
Dim obj As OLEObject
For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.CheckBox.1" Then
obj.Object = False
End If
Next obj
End Sub
Sub Test2()
'from the Forms tolbar
Dim obj As CheckBox
For Each obj In ActiveSheet.CheckBoxes
obj.Value = False
Next obj
End Sub
Mike
"Geoff" wrote:
> Excel 2007:
>
> I have a sheet that has oodles of check boxes. Is there a simple way to
> automate resetting the values of them to zero. The check boxes are not tied
> to any cell value.
|