Antonio
I would suggest using FormulaR1C1

..Cells().FormulaR1C1 = "=If(RC17=R37C,RC14,0)"

Alok
"Antonio" wrote:

I need to insert programmatically the following formula in several adjacent
cells

=IF($Q198=R$37,$N198,0)

198 is the row number that varies
R is the column letter that varies

The rest is constant

I cannot copy the cells from above because sometimes I am not supposed to.
Copying the cells from above manually does work.

I am trying:

.Cells(r, 18).Formula = "=IF($Q" & r & "=" & Column() & "$37" & ",$N" & r &
",0)"

where r is the row number
I need to figure out the column()