Private Sub CommandButton1_Click()
For i = 0 To UBound(ListBox1.List)
ActiveSheet.Range("A" & i + 2) = Me.ListBox1.List(i)
Next
End Sub




"K" wrote:

Hi all, I have items list in ListBox1 and I want macro on a button to
get that list in column A from Range A2 to down. Please can anyone
can help