Dim vData

vData = Range("A1:A3")

With ListBox1

.ColumnCount = UBound(vData, 2) '//# of cols in the array

.List = vData

End With



..results

a1

a2

a3



..and...

Dim vData

vData = Range("A1:C1")

With ListBox1

.ColumnCount = UBound(vData, 2) '//# of cols in the array

.List = vData

End With



..results

a1 a2 a3



--

Garry


If a list box was not used what would a 'typical' code look like?
And to return the data would you just use something like
.Range("F1") = vData
if so does F1 need to be Resized?

With "What instead of List Box"

.ColumnCount = UBound(vData, 2) '//# of cols in the array

.List = vData

End With

Howard