Use VBA to Uncheck all Check Boxes

[StuLux]

Despite extensive searching of this board I cannot find code to do the following:

I have a worksheet with several check boxes on it (check boxes inserted using the Forms toolbar). I want to be able to uncheck all boxes on the sheet using VBA as a way of resetting the sheet, can anybody help.

 

[ADAMC]

Perhaps:

Sub ClearChecks()

  Dim CB As Object

    For Each CB In ActiveSheet.CheckBoxes
      CB.Value = xlOff
    Next CB

End Sub

This works also:

Sub ClearChecks()
    ActiveSheet.CheckBoxes.Value = xlOff
End Sub

 

[StuLux]

Thanks Adam, I used your second bit of code and it works fine. I was getting stuck with trying to set the value of the checkboxes to FALSE instead of xlOff.

 

[ADAMC]

Your welcome,

PS i got stuck too, had to look it up in the help files!