Sub test()
Dim wks As Worksheet, chbx As Object

For Each wks In Worksheets
For Each chbx In wks.CheckBoxes
chbx.Value = False
Next
Next
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Steph" wrote in message
m...
Hello all. I have the following bit of code:

Sub Uncheck()
For Each chbx In Worksheets("test").CheckBoxes
chbx.Value = False
Next
End Sub

I have workbooks with one checkbox on 100 sheets. How can I modify
the above code to uncheck each checkbox on every sheet?

Also, How could I modify it to check the box only on certain
predetermined sheets?

Thanks so much!

-Steph