Error 1004 using FormulaR1C1

[Warship]

A case of cerebral flatulence most likely:

Both of the FormulaR1C1 lines are throwing Err1004.

Suggestions?

Sub TaxExempt()

    If ActiveSheet.Cells(ActiveCell.Row, 32) = "exempt" Then
        ActiveSheet.Range("AF" & ActiveCell.Row).FormulaR1C1 = "=IF(RC[-4]<>"",RC[-4]*GetTax(vFacID),"")"
        'ActiveSheet.Cells(ActiveCell.Row, 32).FormulaR1C1 = "=IF(RC[-4]<>"",RC[-4]*GetTax(vFacID),"")"
    Else
        ActiveCell = "exempt"
    End If
    
End Sub

 

[GlennUK]

Embedded quotes get doubled, so the string should be:

"=IF(RC[-4]<>"""",RC[-4]*GetTax(vFacID),"""")"

 

[Warship]

but of course! knew it was simple!
works now
thx Glenn!