Check All Check Boxes

[Native]

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

 

[Ron de Bruin]

You can do this for all Forms checkboxes

ActiveSheet.CheckBoxes.Value = True

 

[Dave Peterson]

Are you sure they're from the Forms toolbar?

Those checkboxes usually have names like "Check Box 1"

But if they are from the Forms toolbar:

activesheet.checkboxes.value = xlon 'xloff

 

[Ron de Bruin]

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

 

[Native]

Dave: You da man

Have the names wrong...they are "Check Box 18" etc

how do I make them on or off given this? I tried to space them, but no
work.

I would like to specify which are on/off because a few are still place
holders.

 

[Dave Peterson]

with activesheet
.checkboxes("check box 18").value = xlon
.checkboxes("Check box 32").value = xloff
'etc
end with

If you named the checkboxes nicely, you could use some kind of loop:

dim myCBX as checkbox

for each myCBX in activesheet.checkboxes
if lcase(mycbx.name) like "spec_*" then
'do nothing
else
mycbx.value = xloff 'xlon
end if
next mycbx

Give the special checkboxes a nice name--just select the checkbox and type the
new name in the name box (to the left of the formula bar) and don't forget to
hit enter.