Clear Multiple CheckBox Controls

I have a sheet with 550 checkboxes (form toolbar). I want to be able to reset the boxes to unchecked with a button. I found an example here but I seem to need the label (Ex: "Check Box 1")

Sub UnCheckit()
ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = False
End Sub

It doesn't make sense I would need to leave the label showing on the sheet, but the label seems to be the identifer for each checkbox, not the named cell. So I am a little confused how to alter the code.

So when it works it looks like:
[] Check Box 1 Click this box to indicate something

While I wanted it to look like:
[] Click this box to indicate something

(I guess control checkboxes was the way to go but we are here now.)