Ошибка ссылки на значение в раскрывающемся списке

Question

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

Dim combo As Object
Set combo = ThisWorkbook.Sheets("AdvStats").Shapes.AddFormControl(xlDropDown, _
                                     Left:=Cells(1, tCols + 2).Left, _
                                     Top:=Cells(1, tCols + 2), _
                                     Width:=200, _
                                     Height:=Cells(1, tCols + 2).Height)

For Each X In tbl.HeaderRowRange 'table that was built earlier in my code
     If InStr(X, "View:") = 0 Then
          With combo
                 .ControlFormat.AddItem X
          End With
     End If
Next

Dim myindex As Long, myitem As String

myindex = combo.ControlFormat.Value
myitem = combo.ControlFormat.List(myindex) 'it gets here and errors out

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

Есть предложения? Большое спасибо!