ListBox List into Range

[K]

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

 

[JLGWhiz]

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

 

[K]

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





- Show quoted text -

Thanks