Hi Daniel,

A range has a HasFormula property which you can test like so

If ActiveCell.HasFormula Or Not IsEmpty(ActiveCell.Value) Then
MsgBox "hello"
End If

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Daniel" wrote in message
...
Hello and Merry Christmas to all
How can I evaluate cells that contain formula? Even if the cell does
not show a result, it is not empty and applying or < is of no use?

My cells contain a formula like: =IF(AND(A424000,A42<9000),I42,"") and I
would like to be able to evaluate and compare them for further action.
Like
this (which is not working):
If Not IsEmpty(thisCell) Or Not thisCell.Value = 0# Then
getThisPlanNumberAmount = thisCell.Value
ElseIf thisCell.Value thisCell.Offset(0, 1).Value Then
getThisPlanNumberAmount = thisCell.Offset(0, 1).Value
Else
..................

Thank you