Заполнить ComboBox данными с другого листа

[umka777_89]

Dim i&
Const iRow = 65536: iClm = "A"
sn = Лист2.Name
iRws = Sheets(sn).Range(iClm & iRow).End(xlUp).Row
' ComboBox1.ListFillRange = sn & "!" & iClm & "1:" & iClm & iRws


For i = 1 To iRws
If [B100] Like "*" & Sheets(sn).Cells(i, 1) & "*" Then
ComboBox1.AddItem i
End If
Next i

ошибка в строке ComboBox1.AddItem i
ошибка Run-time error 70: permission denied

[umka777_89]

так, что-то там наделала,теперь в комбобокс добавляется только согласно условию, но почему по несколько раз добавляется одно и тоже?
вот код

  Private Sub ComboBox1_Change()
    'If Not Me.ComboBox1.ListIndex = -1 Then
     '  Me.Cells(98, 9) = Me.ComboBox1.Value
   ' End If
    
    ' ComboBox1.Clear
     
     Dim i&
     
     Const iRow = 65536: iClm = "A"
     sn = Ëèñò2.Name
     iRws = Sheets(sn).Range(iClm & iRow).End(xlUp).Row
    'ComboBox1.ListFillRange = sn & "!" & iClm & "1:" & iClm & iRws
    
    'ComboBox1.Clear
    
    For i = 1 To iRws
    If [B100] Like "*" & Sheets(sn).Cells(i, 1) & "*" Then
    ComboBox1.AddItem Sheets(sn).Cells(i, 1)
    End If
  Next i
    
   For i = 1 To iRws
   If Sheets(sn).Cells(i, 1) = Me.ComboBox1.Text Then
   Cells(98, 9) = Sheets(sn).Cells(i, 2)
   End If
   Next i
  ' Me.ComboBox1.Clear
 End Sub

если очищаю в начале, то потом почему то вообще не работает что прописано(не работает второй иф)..

[umka777_89]

Спасибо, можно закрывать)