On 4/29/2010 7:05 PM, JLGWhiz wrote:
Should have tested it first. Use this.

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

Adding the .Value will throw an error since myArr(i) is a value.


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

For i = LBound(myArr) To UBound(myArr)

Hi. Not likely, but one could have:

Dim m(-5 To 5)

Just an idea...

n = UBound(v) - LBound(v) + 1

[A1].Resize(n) = v
'or
[B1].Resize(n) = WorksheetFunction.Transpose(v)

= = = = = = =
HTH :)
Dana DeLouis