Add a User Defined Funtion UDF
In a code module. In Excel, Alt-F11 to the VBIDE, insert a module,
Insert>Module, 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