Thread: Macro Help
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Kari J Keinonen[_2_] Kari J Keinonen[_2_] is offline
external usenet poster
 
Posts: 20
Default 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