fill across row instead of down column

[xxentric]

i have just a loop code here as an example of how im filling data down a column... how could i do this the other way and have it fill the data across a row instead?

Do While myRecSet.EOF = False
    myRecipe(i) = CStr(myRecSet.Fields(0).Value)

    ThisWorkbook.Worksheets("Sheet1").Range("A" & 8 + i).Value = myRecSet.Fields(0).Value

    myRecSet.MoveNext
    i = i + 1
Loop

 

[PWise]

how about

ThisWorkbook.Worksheets("Sheet1").Range(chr(64+i) &1).Value = myRecSet.Fields(0).Value

 

[dhookom]

In the future, shouldn't this type of question be posted in forum707 ?

Duane
Hook'D on Access
MS Access MVP