Populating worksheet row with listbox values

[lam90]

Hello,

I'm wanting to populate a worksheet row from listbox2 after making choices from listbox1. I look forward to solving this little query.

Option Explicit

Private Sub ToLeftButton_Click()
With ListBox2
Dim itemIndex As Integer
For itemIndex = .ListCount - 1 To 0 Step -1
If .Selected(itemIndex) Then
ListBox1.AddItem .List(itemIndex)
.RemoveItem itemIndex
End If
Next itemIndex
End With
End Sub

Private Sub ToRightButton_Click()
With ListBox1
Dim itemIndex As Integer
For itemIndex = .ListCount - 1 To 0 Step -1
If .Selected(itemIndex) Then
ListBox2.AddItem .List(itemIndex)
.RemoveItem itemIndex
End If
Next itemIndex
End With
End Sub

Private Sub UserForm_Activate()
With ListBox1
.Clear
.AddItem ("0.5")
.AddItem ("0.625")
.AddItem ("1.0")
.AddItem ("1.25")
.AddItem ("1.5")
.AddItem ("2.0")
.AddItem ("2.5")
.AddItem ("3.0")
.AddItem ("3.75")
.AddItem ("4.0")
.AddItem ("5.0")
.AddItem ("6.0")
.AddItem ("7.0")
.AddItem ("7.5")
.AddItem ("8.0")
.AddItem ("9.0")
.AddItem ("10.0")
.MultiSelect = fmMultiSelectExtended
End With

With ListBox2
.Clear

.MultiSelect = fmMultiSelectExtended
End With
End Sub

Private Sub OKButton_Click()

Range("G2").Value = ListBox2.List

End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub


_______________

I currently know only to fill a single cell "G2", or a column "G2:G15". However I need to populate across a worksheet so I'm able to keep the size of my form conservative.

Cheers.

[mikerickson]

Dim i As Long

With ListBox2
For i = 0 to .ListCount - 1
Range("A1").Offset(0, i).Value = .List(i)
Next i
End With