IF formula entered by VBA

[THEGOB]

I am trying to enter a formula in a cell which determines whether a symbol is Equity or Option. VBA code is as follows:

.Offset(r, 1).Formula = "=if(LEN(RC[1])>4,"Option","Equity")"

However, the speechmarks around Equity and Option cause the VBA to fail.

Solution appreciated.

 

[njimack]

.FormulaR1C1 = "=IF(LEN(RC[1])>4,""Option"",""Equity"")"

 

[THEGOB]

Many thanks!