Dim varr as Variant
Dim rng as Range, rng1 as Range
set rng = Range("G1:P1")
set rng1 = range("G10:P10")
redim vArr(1 to 10, 1 to 2)
for i = 1 to 10
varr(i,1) = rng(1,i)
varr(i,2) = rng1(1,i)
Next

You said you had the sort down, so I guess that is what you need.


--
Regards,
Tom Ogilvy


"Carrie" wrote in message
...
Hi- I need help reading two rows to an array. I have a list of names in
the first row, columns G:P and a list of numbers in the 10th row, columns
G:P. I want to read in the two rows, and (i think) transpose them before
they are in the array so that they are actually two columns in the array. I
next want to sort them and grab the 5 lowest numbers (and associated names).
I'm fairly confident in VBA for access, but I'm getting a bit thrown off my
this Excel stuff.

I'm aware this is the 2nd time I've posted, but I'm in a bit of a time
crunch. Thanks!