Объект управления ListBox будет иметь некоторое имя. Поэтому, если ваша форма называется frm
, а объект списка имеет имя lstBox
, вы должны переместить выбранное значение в диапазон myRange
, например:
myRange.value = frm.lstBox.text
Если вы хотите перебрать ячейки в диапазоне, если бы выглядело примерно так:
Dim cell as range
For each cell in myRange
cell.value = frm.lstBox.text
next cell
Выше будет записывать значение в ListBox для каждой ячейки в диапазоне.