Комбоксы - Как активировать комбо-боксы в Excel без необходимости go до «Visual Basi c» и запуска кода

Question

Каждый раз, когда я запускаю свой код, я получаю повторяющиеся переменные. Очень раздражает, как бы я решил эту программу?

Private Sub ComboBox2_Change()
    With Sheet3.ComboBox2
        .AddItem "TH"
        .AddItem "Reinitialize TH (Moving Along Line)"
        .AddItem "Reinitialize TH (End of Session)"
        .AddItem "Discrepancy W/ Field Notes"
        .AddItem "  "
        .AddItem "Data Collector Failed"
        .AddItem "Mentioned In Field Notes"
    End With
End Sub

Обновление

Проблема решена - я использовал неправильную функцию.

Private Sub ComboBox2_Change() 
  With Sheet3.ComboBox2 
    ComboBox2.List = Array("TH/Alignment", "Reinitialize TH (Moving Along Line)", "Reinitialize TH (End of Session)", "Discrepancy W/ Field Notes", "Data Collector Failed", "Mentioned In Field Notes", " ")
  End With
End Sub 

после запуска этого кода он не создает повторяющихся значений