Hi all:

I get a runtime 'type mismatch' on the last statement
(i.e., r.Value = ). Any thoughts?

Sub test()
Dim r As Range
Set r = ActiveSheet.Range("A1:A50000")

Dim arr() As Long
Dim i As Long
ReDim arr(1 To 50000)
For i = 1 To 50000
arr(i) = i
Next i

r.Value = Application.WorksheetFunction.Transpose(arr)

End Sub

Thanks, Tony