第二次通过时执行While循环运行时错误1004

Question

我正在尝试通过ActiveX复选框进行迭代。如果选中此复选框，则需要将信息从该行移动到另一张纸上（子完成），然后将下面的行向上移动。我在Set cb上第二次遇到运行时错误1004。我该如何解决？

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