Не удалось установить свойство списка. Неверный индекс массива свойств - проблемы ComboBox

Question

Я знаю, что есть несколько вопросов с одним и тем же кодом ошибки, но ни один из ответов не показался в моем коде.

У меня есть поле со списком в пользовательской форме в Excel, которое я хочу заполнить из именованного диапазона в моя рабочая тетрадь В

sub userform_initialize()    
Range("rngDept").Activate
Me.ComboBox1.List = Range("rngDept")

Где rngDept - имя диапазона. Первая строка успешно выбирает нужный диапазон, но не загружает эти значения в комбинированный список. Я работал на прошлой неделе, но забыл ThisWorkbook.Close savechanges: = False было установлено. Я использую точно такой же подход, поэтому я не знаю, почему он сейчас не работает.

Заранее спасибо.

Answer 1

Я удалил этот код с другого сайта, который работал:

Private Sub UserForm_Initialize()
'Populate Color combo box.
Dim rngColor As Range
Dim ws As Worksheet
Set ws = Worksheets("LookupLists")
For Each rngColor In ws.Range("ColorList")
Me.cboColor.AddItem rngColor.Value
Next rngColor
End Sub

Спасибо.