Hi

I have a userform with 2 listboxss. One listbox contains Currency info with 13 columns in it. The first column specifies the currency (GBP, Euro etc) and the other 12 are decimal values for each of the 12 months.

When the user double clicks a row I need to copy the complete row to the other listbox. It can go from right to left and left to right.

Im using this code:

If numCols > 1 Then
For i = 1 To numCols - 1
insertedItem = lstMoveTo.ListCount - 1
lstMoveTo.List(insertedItem, i) = lstMoveFrom.List(itemIndex, i)
Next i
End If

However only the first 10 columns are copied due to constraints on listboxes with unbound data sources.

Any body have any ingenious ways to get round this?

Thanks