List Listbox data in column

[K]

Hi all, How can i list all data of a Listbox in a cloumn

 

[Gary Brown]

Dim i As Double
On Error Resume Next
For i = 0 To Me.ListBox1.ListCount
Application.ActiveCell.Offset(i, 0).Value = _
Me.ListBox1.List(i)
Next i