Добавление уникальных значений столбцов в комбинированный список пользовательских форм, отсортированный по алфавиту

Question

Привет. Я пытаюсь добавить уникальные значения из трех столбцов в три различных поля со списком.Я также хочу использовать массивы и циклы for, чтобы они циклически повторялись три раза для каждого столбца. Три комбинированных списка названы cmbTruck;cmbSource;и cmbDest и хотите ввести значения из столбца 2;16;и снова 16, соответственно, от 2-й строки до последней записи.

Dim cel As Range
Dim rngItems As Range
Dim oDictionary As Object
Dim arr As Variant
Dim cmbOptions As Variant
Dim i as long
Dim lrow As Long


arr = array(2, 16, 16)
cmbOptions = Array(cmbTruck, cmbSource, cmbDest)

lrow = Range("A1").End(xlDown).Row

For i = LBound(arr) to UBound(arr)

With cmbOptions(i)
    Set oDictionary = createobject("Scripting.Dictionary") 
    Set rngItems = ThisWorkbook.ActiveSheet.Range(Cells(2, arr(i)), Cells(lrow, 2))

    For Each cel In rngItems
        If oDictionary.exists(cel.Value) Then
        'Do Nothing
        Else
            oDictionary.Add cel.Value, 0
            .AddItem cel.Value
        End If
    Next cel
End With

Next i 

Я получаю сообщение об ошибке '424' Требуется объект на линии 17.Я думаю, что это вызвано массивом cmbOptions и строкой цикла with с cmbOptions, которые не распознаются как имя комбинированного списка.Могу ли я получить помощь по этому вопросу, будет принята с благодарностью.

Jae