Dim cb As CheckBox
For Each cb In ActiveSheet.CheckBoxes
cb.Value = False
Next cb

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Sean" wrote in message
oups.com...
I have 52 Check boxes (representing each week of the year) on a sheet
called Account. How can I uncheck all boxes within this sheet via code,
that will save me from clicking 52 times!

Thanks