Macro Help
Hi!
Try this one, this should work ok.
Private Sub clearwateraudit_Click()
Dim oSheet As Worksheet
Dim oControl As OLEObject
Dim i As Integer
i = 1
For Each oSheet In Worksheets
With Sheets(i)
For Each oControl In .OLEObjects
If TypeName(oControl.Object) = "CheckBox" Then
' if you use Control Toolbox objects
oControl.Object.Value = False
' if you use Forms toolbar on a worksheet
.CheckBoxes.Value = xlOff
End If
Next oControl
End With
i = i + 1
Next oSheet
End Sub
Regards,
Kari J Keinonen
|