フォームのリストボックスに値を格納する

LISTBOX.AddItem "hoge"

セル範囲の値を格納

RANGE = Range("A1:D4").Address
LISTBOX.RowSource = RANGE