Makro zum Löschen von ActiveX-Kontrollkästchen im ausgewählten Bereich - VBA, Excel-VBA, Excel

Ich versuche, das Kontrollkästchen "ActiveX" mit dem folgenden Code zu löschen. Es funktioniert jedoch nicht. Freundlicher Hinweis.

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

Für ein Beispiel habe ich diese ActiveX-Kontrollkästchen von A1 bis F1-Zellbereich gesetzt. Ich werde die Zellen von A1: F1 auswählen und wenn ich dieses Makro ausführen, sollten diese Kontrollkästchen gelöscht werden. Bitte beraten

Antworten:

Behandeln Sie die Kontrollkästchen als Shapes und prüfen Sie dann die Position der oberen linken Zelle:

Sub CheckKiller()
Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.Type = 12 Then
If Not Intersect(s.TopLeftCell, Selection) Is Nothing Then
s.Delete
End If
End If
Next
End Sub