I have a multi column (4) list box with the following columns:

Botanical Name Common Name size price

the following code transferrs the columns from the list box to
separate worksheet

Private Sub CommandButton1_Click()
Dim i As Integer, x As Integer
i = 2
Sheets("sheet2").Range("a:d").EntireColumn.ClearCo ntents
With ListBox1
For x = 0 To .ListCount - 1
If .Selected(x) = True Then
Sheets("sheet2").Cells(i, 1) = .List(x, 0)
i = i + 1
End If
Next x
End With
UserForm1.Hide
End Sub


The code works however it only transferrs the 1st column "Botanica
Name" and not the other three.

How can I modify this so that it also transfers the other thre
columns. I am on a deadline for work and this is the only thing tha
is holding me up from completing my project

--
pcscs
-----------------------------------------------------------------------
pcscsr's Profile: http://www.excelforum.com/member.php...fo&userid=1200
View this thread: http://www.excelforum.com/showthread.php?threadid=27399