Eliminar Checkbox de una seleccion

Esta sería la macro

Sub borra_checks()
'por.DAM
    If Selection.Count = 1 Then
        Range(Selection.Address).Select
    End If
ini = True
cont = 0
    For Each celda In Selection
        If ini Then
            ci = celda.Address
            ini = False
        End If
        cf = celda.Address
    Next
iarr = Range(ci).Top
iizq = Range(ci).Left
falt = Range(cf).Height
fanc = Range(cf).Width
farr = Range(cf).Top + falt
fizq = Range(cf).Left + fanc
    For Each check In ActiveSheet.OLEObjects
        If TypeOf check.Object Is MSForms.CheckBox Then
            If check.Top >= iarr And check.Top <= farr And _
                check.Left >= iizq And check.Left <= fizq Then
                check.Select
                Selection.Delete
                cont = cont + 1
            End If
        End If
    Next
    MsgBox "Se borraron " & cont & " checkbox", vbInformation, "BORAR CHECK"
End Sub

Saludos.DAM
Si es lo que necesitas.