You have to double the double quotes inside a string. Make sure you are
below row 26.

ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,""fourth"",IF(MONTH(R[-26]C)<=6,""first"",IF(MONTH(R[-26]C)<=9,""second"",""third"")))"

worked fine for me.

--
Regards,
Tom Ogilvy


"Jimbob" wrote:

I need to find the quarter of a known date.

This code works fine:
ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,4,IF(MONTH(R[-26]C)<=6,1,IF(MONTH(R[-26]C)<=9,2,3)))"

But I need the result to be ordinal, so I substituted "fourth", "third" etc
for the numbers:
ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,€�fourth€�,IF(MONTH(R[-26]C)<=6,€�first€�,IF(MONTH(R[-26]C)<=9,€�second€�,€�third€�)))"
Although it works in the formual bar it produced a synatx error in code.

Any clues as to how to fix this?
I've tried formatting the cell, which gives a fix in Excel but this doesn't
copy across to Word in the same format.

Thanks in advance