Problems adding formula to a cell

Hi all-

I am trying to enter the following lines into a script:

Sheets("Table of Contents").Select
Range("$A$3").Select
ActiveCell.FormulaR1C1 = "=('VTS Title Sheet'!$A$3)"

I basically want cell A3 of one sheet to be updated to the contents of cell A3 on another sheet. When I run the macro, the program fails. If I put a escape/backslash in front of the =, then the following prints:

/=('VTS Title Sheet'!$A$3)

Why can't I just enter the formula? Any hints?

Thanks for any help

Chris