'Uncheck button'
If you used ActiveX checkboxes then this:-
Sub UnCheckBoxesActiveX()
Dim objChkBox As OLEObject
With Sheets("Sheet1")
For Each objChkBox In .OLEObjects
If TypeName(objChkBox.Object) = "CheckBox" Then
objChkBox.Object.Value = False
End If
Next
End With
End Sub
--
Regards,
OssieMac
|