Как из combobox2 исключить значение combobox1? - VBA

Формулировка задачи:

Доброго времени суток! проблема в следующем:

ComboBox1.RowSource = "Работники!H3:H29"

теперь как задать в ComboBox2 такие же значения как и в ComboBox1 т.е. "Работники!H3:H29" за исключением выбранного в ComboBox1?

Решение задачи: «Как из combobox2 исключить значение combobox1?»

textual
                            Листинг программы 
                        

                            Private Sub ComboBox2_Enter()
Dim i As Integer, s As String
  ComboBox2.Clear
  s = ComboBox1.Text
  For i = 0 To ComboBox1.ListCount - 1
    If ComboBox1.List(i) <> s Then ComboBox2.AddItem ComboBox1.List(i)
  Next i
End Sub
                        