Test2 was just what i needed and works like a charm. Thank you very much!

"Mike H" wrote:

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