1 click for all checkboxes

G

Guest

hi,
lot of ways to do this
you could put a label above the check boxes and put
something like the folloning code behind it
Private Sub Label1_Click()
Me.CheckBox1 = True
Me.CheckBox2 = True

End Sub
this is just one quick idea. tested. it works.
 
R

Ron de Bruin

Hi Zurn

If you use checkboxes from the Control toolbox

Sub test2()
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.CheckBox Then
obj.Object.Value = True
End If
Next
End Sub
 
D

Dave Peterson

And if you used checkboxes from the Forms toolbar (on a worksheet):

ActiveSheet.CheckBoxes.Value = xlOn 'xlOff
 
Top