array across columns

andy

I need to make an array which records range A1:E1 instead of A1:A5..    does anyone know how to do this without building a whole buch of workarounds?  when i record an array that goes down (not across), i use something like
A = "A" amp; count
count = 1
for i  = 1 to x   array(i) = range(A).value   count = count +1
next i
this way it gets all the data from A1,A2,A3.....until x... not sure how to do this when i want count to stay at 1, but the actual letters to change..


Code:
For i = 1 to 3   array(i) = sheet1.Cells(1,i)
Next iNo loop

Code:
myArray = Range("A1:E1).Value   '