I think this is right. give it a try. Substiture your array name for
myArr. The code below assumes a zero based array, if yours is base 1 then
you will not need the + 1 for the range row designation. This would start in
A1 and continue downward for the number of items in the array.

For i = LBound(myArr) To UBound(myArr)
Range("A" & i + 1) = myArr(i).value
Next





"Striker3070" wrote in message
...
I have an array with about 1500 names in it. How can I add those names to
column A1 on sheet1 and go down one cell 1500 times and add the next value
to the spreadsheet? in Excel07 VBA