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

--
Hope this helps.
If it does, please click the Yes button.
Thanks in advance for your feedback.
Gary Brown



"K" wrote:

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