"William C. Smith" <wcsmithx*xieee.org wrote...
....
This code assigns the first element of the variant array to each cell in
the column range.
count = UBound(answer, 1)
Range(ActiveCell, ActiveCell.Offset(count-1, 0)).Formula = answer

Is there a way of making Excel asign the elements of the array to a column?

ActiveCell.Resize(UBound(answer), 1).Formula = _
Application.WorksheetFunction.Transpose(answer)

should work.