Hey Alan,

Try this

Range("A6").Select
ActiveCell.FormulaR1C1 = _

"=IF(AND(R[-1]C[1]-1,R[-1]C[1]<31)=TRUE,""1-30"",IF(AND(R[-1]C[1]30,R[-1]C[1]<61)=TRUE,""31-60"",IF(AND(R[-1]C[1]60,R[-1]C[1]<100)=TRUE,""61-99"",IF(R[-1]C[1]99=TRUE,""100+"",""Error!""))))"
Range("A6").Select

Regards
Subhash

"Alan M" wrote:

I have the following formula which works fine in a worksheet:

=IF(AND(N4-1,N4<31)=TRUE,"1-30",IF(AND(N430,N4<61)=TRUE,"31-60",IF(AND(N460,N4<100)=TRUE,"61-99",IF(N499=TRUE,"100+","Error!"))))

However, when I try to use VBA code to enter the formula using this ( which
is basically the same thing)

Range("S2").FormulaR1C1 = _
"=IF(AND(RC[-1]-1,RC[-1]<31 = TRUE,"1", _
IF(AND(RC[-1]30,RC[-1]<61 =TRUE,"31-60", _
IF(AND(RC[-1]60,RC[-1]<100) =TRUE, "61-99", _
IF(RC[-1]99 = TRUE,"100+"."ERROR!"))))

I get a syntax error message

Can anyone tell me how to get it to enter the formual automatically please?