Как объявить и установить переменную ListBox в Excel VBA?

Question

Борьба, чтобы найти информацию о том, как ссылаться на список на листе (с использованием ссылки на MS Forms) из модуля (а не листа или формы) в Excel.

Dim lb As MSForms.ListBox 
Dim chartSheet as worksheet 

    Set chartSheet = Sheets("Chart") 

    Set lb = chartSheet.Objects("lbPartNo") ' nope 
    Set lb = chartSheet.ListObjects("lbPartNo") ' nope 
    Set lb = chartSheet.ListBoxes("lbPartNo") ' nope 

Любые идеи? Благодаря

Answer 1

Если это на самом деле MSForms.Listbox (т.е. ActiveX), то:

Set lb = chartSheet.lbPartNo 

В противном случае, объявить его как только Listbox и использование:

Set lb = chartSheet.ListBoxes("lbPartNo")