Удаление нескольких флажков на основе выбранной ячейки

Question

У меня есть листы Excel, которые используют флажки ActiveX для управления определенной деятельностью. Я ищу метод для удаления содержимого столбца выбранной ячейки (как текст, так и флажки). До сих пор я использовал код ниже, но он только удалил флажок в ячейке под активной ячейкой. Любая помощь будет оценена!

Sub DeleteJob1_Click() 

If MsgBox("This will erase this job! Are you sure?", vbYesNo) = vbNo Then Exit Sub 
Columns(ActiveCell.Column).Delete 

Dim cb As CheckBox 

For Each cb In ActiveSheet.CheckBoxes 
    If cb.TopLeftCell.Address = ActiveCell.Address Then cb.Delete 
Next 

End Sub 

Answer 1

попробовать:

Sub DeleteJob1_Click() 
    Dim cb As CheckBox 
    If MsgBox("This will erase this job! Are you sure?", vbYesNo) = vbNo Then Exit Sub 
    For Each cb In ActiveSheet.CheckBoxes 
     If cb.TopLeftCell.Column = ActiveCell.Column Then cb.Delete 
    Next 
    Columns(ActiveCell.Column).Delete 
End Sub