Export listbox items to worksheet horizontally

Hello everyone,

I’m trying to export items from a listbox to a worksheet.
The code I’m using gives me the items in a vertically order, but I need the items in a horizontally order starting at the 3e column at the first row.
I have tried the following code:

Dim TheArray As Variant
Dim TheRange As Range
TheArray = ListBox2.List
Set TheRange = Blad10.Range(Blad10.Cells(1, 3), Blad10.Cells(1, 3 + UBound(TheArray))
TheRange = TheArray
End Sub

Thank you in advance!

Originally Posted by Norie

Try this.

Please Login or Register  to view this content.

Thanks for the fast response!
I'm getting error 13 type mismatch

I have a list of textual data....
I'm getting the error on this line : TheRange = Application.Transpose(TheArray)

It works perfectly! Thank you very much