Sub CalcColumn()
Dim cell as Range
Dim rng as Range
set rng = range(cells(1,2),cells(1,2).End(xldown))
for each cell in rng
cell.offset(0,1).Value = cell.Value + cell.offset(0,-1).Value
Next
End Sub

--
Regards,
Tom Ogilvy


" wrote:

How do you calculate a column using a loop?
A B C
1 100 200 ?
2 13 17 ?
..
..
..
N