brisbane bob
Maybe also put a command button on the sheet that runs this code:
<font face=Courier New><SPAN style="color:#00007F">Dim</SPAN> cb <SPAN style="color:#00007F">As</SPAN> OLEObject
<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> cb <SPAN style="color:#00007F">In</SPAN> ActiveSheet.OLEObjects
<SPAN style="color:#00007F">If</SPAN> TypeName(cb.Object) = "CheckBox" <SPAN style="color:#00007F">Then</SPAN>
cb.Object.Value = <SPAN style="color:#00007F">False</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> cb</FONT>