Ошибка Do во время выполнения цикла 1004 во второй раз через

Question

Я пытаюсь перебрать чекбоксы activex. Если флажок установлен, он должен переместить информацию из этой строки на другой лист (подраздел ЗАВЕРШЕНО), а затем переместить строки ниже. Я получаю ошибку во время выполнения 1004 во второй раз через Set cb. Как я могу это исправить?

Private Sub cmbupdate_Click()
Dim i As Long
Dim cb As Object


i = 1
Do While i < 99
    Set cb = ActiveSheet.OLEObjects("CheckBox" & i).Object
    If cb.Value = True Then
        Range("A" & (i + 3), "K" & (i + 3)).Select
        Selection.Copy
        COMPLETE
        Selection.ClearContents
        Range("A" & (i + 3)).Select

        ActiveCell.Offset(1).Select
        Orders.Range(Selection, Selection.Offset(, 10)).Select
        Orders.Range(Selection, Selection.End(xlDown)).Select
        Selection.Cut Range("A" & (i + 3))
        Range("A5", "K101").Select
        AddBorder
        Range("A4").Select
        cb.Value = False
        i = i
    Else
        i = i + 1
    End If
Loop

End Sub