Вставка текста. Появляется сообщение: Объект отключен

Private Sub ListBox1_Change()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
 Cells(i+1, 2).Select
Exit For
End If
Next i
End Sub
 
Private Sub CommandButton1_Click()
If TextBox1.Value <> "" And ListBox1.ListIndex <> -1 Then
   With Range(ListBox1.RowSource).Item(ListBox1.ListIndex+1, 3)
        If .Value = "" Then
           .Item(1, 0).Value = TextBox1.Value
        End If
   End With
End If
End Sub

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "a1:a4"
End Sub

Private Sub CommandButton1_Click()
Dim Msg, Title, Responce As String
Dim Style
Msg = "Хотите закончить работу? "
Style = vbYesNo + vbCritical + vbDefaultButton1
Title = "Завершение работы"
Responce = MsgBox(Msg, Style, Title)
If Responce = vbYes Then
Unload Me
End If
End Sub
Private Sub CommandButton2_Click()
ActivateSelectedSheet
End Sub
Private Sub CommandButton3_Click()
'  Ввод значения
    If CStr(SpinButton1.Value) = TextBox2.Text Then
        ActiveCell = SpinButton1.Value
'        Unload Me
    Else
        MsgBox "Неправильное значение", vbCritical
        TextBox2.SetFocus
        TextBox2.SelStart = 0
        TextBox2.SelLength = Len(TextBox2.Text)
    End If
End Sub
Private Sub CommandButton4_Click()
If TextBox3.Value <> "" And ListBox3.ListIndex <> -1 Then
   With Range(ListBox3.RowSource).Item(ListBox3.ListIndex + 1, 3)
        If .Value = "" Then
           .Item(1, 0).Value = TextBox3.Value
        Else
           .Item(1, 0).End(xlToRight).Value = TextBox3.Value
        End If
   End With
End If
End Sub
Private Sub CommandButton5_Click()
Dim Rw As Integer
For Rw = 1 To 45
If Cells(Rw, 2) = TextBox4.Text Then Cells(Rw, 2).Delete
Next Rw
End Sub
 
 
Private Sub ListBox3_Change()
For i = 0 To ListBox3.ListCount - 1
P = i + 1
If ListBox3.Selected(i) Then Cells(P, 2).Select
Next i
Selection.Activate
If ActiveCell.Offset(0, 1) = "" Then ActiveCell.Offset(0, 1).Activate Else: ActiveCell.End(xlToRight).Offset(0, 1).Activate
End Sub
 
Private Sub TextBox2_Change()
 Dim NewVal As Integer
    NewVal = Val(TextBox2.Text)
    If NewVal >= SpinButton1.Min And _
        NewVal <= SpinButton1.Max Then _
        SpinButton1.Value = NewVal
End Sub
Private Sub TextBox2_Enter()
'   Выделение текста TextBox
    TextBox2.SelStart = 0
    TextBox2.SelLength = Len(TextBox2.Text)
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCells = TextBox2
End Sub
 
Private Sub UserForm_Initialize()
Dim cSheets As Integer
Dim i As Integer
cSheets = Sheets.Count
ListBox1.Clear
For i = 1 To cSheets
   ListBox1.AddItem Sheets(i).Name
Next
With SpinButton1
'       Определение пределов
        .Min = 1
        .Max = 200
'       Инициализация        .Value = 1
        TextBox2.Text = .Value
    End With
ListBox3.RowSource = "A1:B45"
End Sub
Sub ActivateSelectedSheet()
If ListBox1.ListIndex > -1 Then
Sheets(ListBox1.List(ListBox1.ListIndex)).Select
End If
End Sub
Private Sub ListBox1_Click()
ListBox3.RowSource = _
Worksheets(ListBox1.Value).Range("A1:B45").Address(External:=True)
Call CommandButton2_Click
Call ListBox3_Change
End Sub
Private Sub SpinButton1_Change()
    TextBox2.Text = SpinButton1.Value
End Sub

Private Sub CommandButton4_Click()
    If TextBox3.Value <> "" And ListBox3.ListIndex <> -1 Then
        If ActiveSheet.Range(ListBox3.RowSource).Item(ListBox3.ListIndex + 1, 3).Value = "" Then
            ActiveSheet.Range(ListBox3.RowSource).Item(ListBox3.ListIndex + 1, 3).Item(1, 0).Value = TextBox3.Value
        Else
            ActiveSheet.Range(ListBox3.RowSource).Item(ListBox3.ListIndex + 1, 3).Item(1, 0).End(xlToRight).Value = TextBox3.Value
        End If
    End If
End Sub