How Can I copy all value of the array into the range?

[sjoo]

Hello Everyone,

I' m trying put an array data into a range as following,

Dim rng As Range
Dim s As Worksheet
Dim arr

Set s = Sheet1
Set rng = Range(s.Cells(1, 1), s.Cells(10, 1))

arr = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")

rng.Value = arr

but All cells of the range is filled with "A".

How Can I copy all value of the array into the range as following,
A1 -> "A"
A2 -> "B"
A3 -> "C"
....
A10 -> "J"

Thanks in advance.