Макрос..из Listbox на лист)

[Бурундук]

форма
код: Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
ListBox1.AddItem "1"
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
ListBox1.Clear
ListBox1.AddItem "2"
End If
End Sub

Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then
ListBox1.Clear
ListBox1.AddItem "3"
End If
End Sub

Private Sub OptionButton4_Click()
If OptionButton4.Value = True Then
ListBox1.Clear
ListBox1.AddItem "1"
ListBox1.AddItem "2"
ListBox1.AddItem "3"
End If
End Sub

Помогите реализовать вывод данных из Listbox на лист, каждой цифры в отдельную ячейку, выворочно или все сразу

[Teslenko_EA]

Здравствуйте Бурундук.
Передать содержимое списка на лист Excel можно с помощью подобной строки:
Range("a1:a" & ListBox1.ListCount).Value = ListBox1.List
таким же способом выполняется и обратное действие - с листа в список:
ListBox1.List = Range("a1:a3").Value
Евгений.
P.S. бесполезные рисунки не стоит выкладывать, это форум не по Adobe Photoshop

[Бурундук]

Думал может пригодится рисунок

Если вношу в Listbox сразу 3 записи, мне нужно выделить из них одну и занести ее на лист...?