copying a listbox to a sheet

[Butane]

Would it possible to copy the contents of a listbox into the column of a spread sheet? When i try it only copies the selected item not all the values. Im new to VBA and this is for a school project. If you can help me then thanks.

 

[vbMax]

For x = 1 To ListBox1.ListCount
Range("A" & LTrim(Str(x))).Value = ListBox1.List(x - 1)
Next x

-vbMax

 

[logius]

If it's for a class, then I think LTrim would be a little beyond the scope. Besides, the

Offset

property would work just as well.

For x = 0 To ListBox.ListCount - 1
   'Offset(row, column)
   Range("A1").Offset(x, 0).Value = ListBox1.List(x)
Next x

Both bits of code do the same thing. Just a matter of choice, really. ----------------------------------------
If you are reading this, then you have read too far...

lightwarrior@hotmail.com