Trying to insert formula into one cell if another cell contains certain text

[davcurnutt]

I am trying to us VBA to input a formula in column O if column A contains the text "Cancel Details". If it contains the text, I want a formula inserted in Column O that will multiply column I and J and add column M. There are multiple worksheets in the workbook and I want it to do this to all sheets. This is what I put in VBA but doesn't work.

Range("O1:O900").Formula = _
"=IF(($A1="Cancel Details",=($I1*$J1)+$M1))"

 

[ExceLoki]

Sub CancelFormula()
'
' CancelFormula Macro
'

'
Range("O1:O900").FormulaR1C1 = "=IF($A1=""Cancel Details:"",(($I1*$J1)+$M1),("" ""))"
End Sub

yeah, sorry about that, i had made a mistake when i first posted it, but then changed it (included r1c1)
try this
Range("O1:O900").Formula = "=IF($A1=""Cancel Details"",($I1*$J1)+$M1)"

 

[davcurnutt]

yeah, sorry about that, i had made a mistake when i first posted it, but then changed it (included r1c1)
try this
Range("O1:O900").Formula = "=IF($A1=""Cancel Details"",($I1*$J1)+$M1)"

That worked. Any tips on how I can get it to leave the cell blank if it doesn't meet that criteria. Also if I want it to run through the whole workbook do I add that to the range?

 

[ExceLoki]

      Sub CancelFormula()
         Dim ws As Worksheet
         For Each ws In Worksheets
        ws.Range("O1:O900").Formula = "=IF($A1=""Cancel Details"",(($I1*$J1)+$M1),("" ""))"
         Next
      End Sub