Macro to Delete All Checkboxes in Selected Cells

I'm trying to program a simple macro to delete all checkboxes in cells that are selected. I am modifying a script that VertexVortex wrote for me to add checkboxes to selected cells. The script I am using (for the deletion) is as follows:

Sub CheckboxRemove()
Dim cl As Range
Dim cb As Object

For Each cl In Selection
Set cb = ActiveSheet.CheckBoxes.Delete()
Next cl

Set cl = Nothing
Set cb = Nothing
End Sub

I am getting an error saying "Object Required" on the line 'set cb = ActiveSheet.Checkboxes.Delete'. When run through, the macro also deletes all cells on the entire page vs. just in the selected range. Any help would be greatly appreciated, thanks!