Сomboboxы

[panuta]

Дорогие программисты, подскажите пожалуйста.
Как сделать так, чтобы в combobox2 добавлялись только те данные со второй колонки, которые соответствуют выбранному в combobox1 значению?
Прикрепляю пример, userform13 там comboboxы, работаю с листом Москва.

[doober]

Private Sub ComboBox1_Change()
If ComboBox1 = "Москва" Then Sheets("Москва").Select
If ComboBox1 = "Санкт-Петербург" Then Sheets("Москва").Select
If ComboBox1 = "Новосибирск" Then Sheets("Москва").Select


ComboBox2.Clear
i = 2
While Cells(i, 1).Value <> ""
With ComboBox2
.AddItem (ComboBox1.Text + Cells(i, 2))
End With
i = i + 1
Wend
End Sub

[Sham1963]

Private Sub ComboBox1_Change()
If ComboBox1 = "Москва" Then Sheets("Москва").Select
If ComboBox1 = "Санкт-Петербург" Then Sheets("Москва").Select
If ComboBox1 = "Новосибирск" Then Sheets("Москва").Select


ComboBox2.Clear
i = 2
While Cells(i, 1).Value <> ""
With ComboBox2
If Cells(i, 1) = ComboBox1.Value Then .AddItem (Cells(i, 2))
End With
i = i + 1
Wend
End Sub

[panuta]

Спасибо большое!!! Все работает!