j = Activecell.Column
For i = 2 To 18 Step 8
Cells(Activecll.Row, j).FormulaR1C1 = "=SheetName!R[" & i & "]C"
j = j + 1
Next i

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"colin919" wrote in message
...
My current situation is:

ActiveCell.FormulaR1C1 = "=SheetName!R[2]C"
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SheetName!R[10]C"
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SheetName!R[18]C"
etc......

I would like to replace the row with an integer increasing by 8 therefore
creating a small loop. VB at the moment does not seem to understand my
request. Is there an easier way to do this? Please help!