Option Explicit
Public Sub test()
Dim objOLEObject As OLEObject
Dim colCheckBoxes As Collection
Dim lngRow As Long, lngCount As Long
For lngRow = 1 To Selection.Rows.Count
lngCount = 0
Set colCheckBoxes = New Collection
For Each objOLEObject In ActiveSheet.OLEObjects
With objOLEObject
If .progID = "Forms.CheckBox.1" And _
.TopLeftCell.Row = Selection.Rows(lngRow).Row Then
Call colCheckBoxes.Add(Item:=objOLEObject)
If .Object.Value Then _
lngCount = lngCount + 1
End If
End With
Next
If colCheckBoxes.Count = lngCount Then
For Each objOLEObject In colCheckBoxes
objOLEObject.Delete
Next
End If
Set colCheckBoxes = Nothing
Next
End Sub