The problem  lies in the statement Activecell.FormulaR1C1. AS it says the
formula takes in only R1C1 style format formulas.

You can try to use Activecell.FormulaLocal instead. I guess this should
work just as fine.

By the way isn't Temp supposed to return ='Smith, John J.' rather than
='Adams, Michael'