Sorry; I guess I misinterpreted it (though I'm still not 100% sure). In
any event:

Range("A1").Resize(100, 1) = .Transpose(.Index(x, 1)) will fail in
Excel2000 and earlier if x contains more than 5461 elements; the Index
function won't accommodate it. It also, in Excel2000, returned an error
message that Index and Transpose were invalid or unqualified references.

If the functions in the freely downloadable file at
http://home.pacbell.net/beban are available to the workbook, the
following will work in Excel2000 and earlier (it uses loops, but they
are prewritten into the RowVector function):

Range("A1").Resize(100, 1) = Application.Transpose(RowVector(x, 1))

Alan Beban

Tushar Mehta wrote:
The OP wrote, "Is there any way I can make ActiveColumn = to a portion
of the array without using a Loop?"
How does that translate to "it doesn't get at the OP's request for
getting a range column into a VBA array ?"