Visual basic de kod hatasını bulma

Arkadaşlar merhaba aşağıdaki kodlarda hücrelere yazma hatası var.Formun ekran görüntüsü şekilde görünüyor.Bu hatayı bulup düzeltemedim.Yardımcı olursanız.TEŞEKKÜRLER.

Private Sub ComboBox1_Change()
TextBox1.Text = ComboBox1.ListIndex
End Sub

Private Sub CommandButton1_Click()
Dim hucre As String
a = ComboBox1.ListCount
Range("b2").Value = a
ComboBox1.ListIndex = 2
hucre = "c" + Str(1)
Range("b2").Value = hucre
Range("b3").Value = ComboBox1.Value
For I = 1 To a Step 1
hucre = "c" + Str(I)
ComboBox1.ListIndex = I - 1
'hucre = InputBox("gir")
Range(hucre).Value = ComboBox1.Value
Next I
End Sub
Private Sub UserForm_Activate()
ComboBox1.AddItem (Sayfa1.Range("a1").Value)
ComboBox1.AddItem (Sayfa1.Range("a2").Value)
ComboBox1.AddItem (Sayfa1.Range("a3").Value)
End Sub