Не заполняется ComboBox

[ponosetc]

Имеется Combobox на 1ом листе и на 2ом листе в первой колонке имеется список фамилий
Private Sub cbCreator_GotFocus()
Dim i As Long

cbCreator.Clear
i = 0
While (Worksheets("Лист2").Cells(i + 2, 1).Value <> "")
cbCreator.AddItem
cbCreator.List(i) = (Worksheets("Лист2").Cells(i + 2, 1).Value)
i = i + 1
Wend
End Sub

Этот код не работает

Кстати, если вместо Combobox я пишу ListBox, то он заполняется отлично

[Казанский]

У меня работает. Хотя можно проще

Private Sub cbCreator_GotFocus()
Dim i As Long

cbCreator.Clear
i = 0
While (Worksheets("Лист2").Cells(i + 2, 1).Value <> "")
    cbCreator.AddItem Worksheets("Лист2").Cells(i + 2, 1).Value
i = i + 1
Wend
End Sub

[ponosetc]

Если честно я понимаю, что должно работать, но почему-то список комбобокса - пустой... Спасибо буду пробывать...

[Казанский]

Без цикла

Private Sub cbCreator_GotFocus()
cbCreator.Clear
With Worksheets("Лист2")
    cbCreator.List = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Value
End With
End Sub

[ponosetc]

Прекрасно... Все работает, проблемма была в combobox'e видимо я его перековырял слишком сильно... с новым комбиком все работает вери велл... спс Тема закрыта