On Apr 30, 9:31*am, Dana DeLouis wrote:
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

Use following code:

Range(YourRange).value=worksheetfunction.transpose (MyArr)