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

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

Dave Peterson posted this

And if you used checkboxes from the Forms toolbar (on a worksheet):
ActiveSheet.CheckBoxes.Value = xlOn 'xlOff



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Juan Pablo González" wrote in message ...
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

Both solutions offers did not work!

"Sheldon" wrote:

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