Hi Gogo,

Try this

For a = 2 To 18
Range("B" & a).FormulaR1C1 = "=sheet1!R[" & (a - 1) * 2 & "]C"
Next a


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"gogo" wrote in message
...
hi
here is what's troubles me. the code below doesn't work but it helps you
understand. i want that cell in (sheet2,B2) have a value of cell in
(sheet1,B2), cell in (sheet2,B3) have a value of cell in (sheet1,B4) ... and
so. the pattern is: columns are same but rows in sheet2 are continues, and
in sheet2 goes by even numbers - 2,4,6,8...
For a = 2 To 18 // a
=number of row in sheet2
i = (a - 1) * 2 // i
=even number sequence[i]
Range("B" & a).Select
ActiveCell.FormulaR1C1 = "=sheet1!RC" // here is question:
how to reference a variable index "i"
Next a

tnx in advance