If they are from the Control Toolbox then use

For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.CheckBox Then
obj.Object.Value = True
End If
Next


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



"Ron de Bruin" wrote in message ...
You can do this for all Forms checkboxes

ActiveSheet.CheckBoxes.Value = True


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



"Native" wrote in message ups.com...
Sorry, about this, but my head is sore from pounding on the desk....

Have a handful of check marks that I put on via the Forms Check Box and
want to have a sub that will check/uncheck all of them. However, i
can't even get the basics on this. What am i missing? I keep getting
error messages no matter how I try to tweak...last error is "object
required"

Sub CheckAll_Houses()
With ActiveSheet
CheckBox18.Value = True
CheckBox19.Value = True
CheckBox20.Value = True
CheckBox21.Value = True
CheckBox22.Value = True
End With
End Sub