Private Sub CommandButton1_Click()
Dim v as Variant
v = UserForm1.ListBox1.List
With Worksheets("Sheet4").Range("A2")
.Resize(UBound(v) - LBound(v) + 1, 1).Value = v
End With
End Sub

worked for me.

--
Regards,
Tom Ogilvy


"trward79" wrote in message
...
I am selecting values and putting them in a list box. I need to click a
button and have those vaues sent to a worksheet page, in A2 and down. I am
totally lost on this one. Please help...