チェックボックスを間違って大量にコピーしてしまった時の処理

Sub test()

MsgBox CheckBoxes.Count

MsgBox CheckBoxes(1).Text

MsgBox CheckBoxes(2).Text

MsgBox CheckBoxes(3).Text

CheckBoxes(4).Delete

MsgBox CheckBoxes.Count

For i = 1 To 558

CheckBoxes(4).Delete

Next i

MsgBox CheckBoxes.Count

End Sub