ActiveCell.FormulaR1C1 = "=if(RC[-1]=0,0,(RC[-5]/RC[-1])*52)"

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Bruce Brosek" wrote in message
...
I populated an entire column using

ActiveCell.FormulaR1C1 = "=(RC[-5]/RC[-1])*52"

and some of the results equate to #DIV/0! based on RC[-1].

I want to read each cell for a variable amount of rows in
a single column, and if the value of RC[-1] is zero, force
the current cell to zero. This would eliminate the divide
by zero from displaying. The above activecell statement
calculates the entire column with 1 statement instead of
looping.

Thanks,