Try this

Dim CB As OLEObject

For Each CB In ActiveSheet.OLEObjects
If TypeName(CB) = "CheckBox" Then
CB.Object.Value = False
End If
Next CB

--
Regards

Juan Pablo González

"Sheldon" wrote in message
...
I have many, many, many check boxes on a worksheet. Under certain
conditions
when the sheet is activated, I need to uncheck ALL the checkboxes.
Without
naming each checkbox individually How can I do this in a loop?

thanks