VBA сопоставляет значения комбинированного списка с диапазонами

Question

Я пытаюсь сопоставить значение в выпадающем списке со значениями из диапазона и поместить соответствующие значения в массив.Однако, согласно окну наблюдения, мой массив не хранит никаких значений.Я думаю, что что-то не так с моей ссылкой на значение поля со списком, но я не уверен, как это исправить.Любой вклад приветствуется.

ILsearch - это имя моей пользовательской формы

AnSelect - это имя моего комбинированного списка

Dim ia As Long
Dim Anion As Range, AnFind As Range
Dim AnResults() As Variant

    If ILsearch.ICheck1.Value = True Then
    Set Anion = Worksheets("Properties").Range("T7:T600")
    For Each AnFind In Anion
        If AnFind.Value = ILsearch.AnSelect.Value Then
            ia = ia + 1
            ReDim Preserve AnResults(ia)
            AnResults(ia - 1) = AnFind.Row
        End If
    Next AnFind
    End If

Answer 1

Это сработало для меня:

Dim ia As Long
Dim Anion As Range, AnFind As Range
Dim AnResults() As Variant

    ia = 0
    If ILsearch.ICheck1.Value = True Then
      Set Anion = Worksheets("Properties").Range("T7:T600")
      For Each AnFind In Anion.Cells
        If AnFind.Value = ILSearch.AnSelect.Value Then
            ia = ia + 1
            ReDim Preserve AnResults(1 To ia)
            AnResults(ia) = AnFind.Row
        End If
      Next AnFind

      MsgBox Join(AnResults, ",")
    End If