No need to loop Forms type checkboxes

Worksheets("Sheet1").CheckBoxes.Value = xlOff ' or xlOn checked

xlOff is -4146 but 0 also works, xlOn is +1

Regards,
Peter T

"michaelberrier" wrote in message
ups.com...
I found this great code for unchecking all Form Toolbar created
checkboxes on a single sheet:


Sub Clearem()
Dim bx as object
For each bx in Worksheets("Sheet1").Checkboxes
bx.value = xlOff
Next
End Sub

How can I adapt this to uncheck all boxes in an entire workbook? I've
tried Activebook and workbook("") with no luck.

Thanks in adavnce.