Problem populating a multicolumn listbox

[Guest]

First, I would like to sa thanks to the MVP's for their help thusfar.

Dick Kusleika explained to me that I can't utililize both an array and a
rowsource when creating a multi-column listbox that can reorder. And I
finally understand why.

But I am having trouble using the additem function to fill the multiple
columns.
I have approxiamately 25 rows and 13 columns to load into the box. Any help
would be greatly appreciated.

 

[Tom Ogilvy]

Combobox1.columnCount = 13
for each cell in Range("A1:A25")
combobox1.AddItem cell.Value
for j = 1 to 12
combobox1.List(combobox1.Listcount - 1, j) = cell.offset(0,j)
Next
Next

or

Combobox1.Columncount = 13
Combobox1.List = Range("A1:M25").Value

 

[Guest]

Thanks Tom.

Combobox1.columnCount = 13
for each cell in Range("A1:A25")
combobox1.AddItem cell.Value
for j = 1 to 12
combobox1.List(combobox1.Listcount - 1, j) = cell.offset(0,j)
Next
Next

or

Combobox1.Columncount = 13
Combobox1.List = Range("A1:M25").Value