CheckBoxes: How to reset
Thanks Dave, but I get a "Subscript out of range" message at the line Set
wks = Worksheets("sheet1").
I note that the procedure says MSForms.CheckBox. Is that right if the
CheckBoxes are from the Control Toolbox?
Also, does the Sub auto_open() mean that as soon as the sheet is opened this
procedure will run?
Rob
"Dave Peterson" wrote in message
...
And if they're from the Control Toolbox toolbar:
Option Explicit
Sub auto_open()
Dim wks As Worksheet
Dim OLEObj As OLEObject
Set wks = Worksheets("sheet1")
For Each OLEObj In wks.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
OLEObj.Object.Value = False
End If
Next OLEObj
End Sub
Rob wrote:
I'd like to know the VBA code to set all CheckBoxes on a worksheet to
false.
I presume a loop would be required, but I can't get one to work.
Rob
--
Dave Peterson
|