This formula doesn't work; I tried ampersands but no luck, any ideas
appreciated. TY

if range("D2").Formula = "=IF(C240,"Overtime","Normal") then ok = ok + 1

if range("D2").Formula = "=IF(C240,""Overtime"",""Normal"")" then...

"headly" wrote:

This formula doesn't work; I tried ampersands but no luck, any ideas
appreciated. TY

if range("D2").Formula = "=IF(C240,"Overtime","Normal") then ok = ok + 1

This will check to see if the formula matches. I'm not sure what you're
trying to do.


Sub checkFormula()
If ThisWorkbook.Sheets("sheet1").Range("D2").Formula = _
"=IF(C240,""Overtime"",""Normal"")" Then
MsgBox "I don't know what you're doing here." & vbNewLine &
vbNewLine & _
"ok = ok + 1"
Else
MsgBox "Formula doesn't fit description"
End If
End Sub