Check All Check Boxes
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.
Native wrote:
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 wrote:
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
Native wrote:
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
--
Dave Peterson
--
Dave Peterson
|