Exactly what I was looking for
Thankyou

"Sandy" wrote:

Add a User Defined Funtion UDF

In a code module. In Excel, Alt-F11 to the VBIDE, insert a module,
InsertModule, and paste that code in.
Function IsFormula(rng As Range)
IsFormula = rng.HasFormula
End Function

Then then add that in the CF formula
=IsFormula(A10)
HTH

"Ken" wrote:

Is it possible to have excel change the color of a cell with a formula in it?