One way. Put this in a REGULAR module. Then use conditional formatting
=hf(h2)
Of course, that will also color text.

Function hf(x)
hf = x.HasFormula
End Function

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Steve" wrote in message
...
Is there a way to create a code that will automatically shade a cell
yellow
when someone overwrites a formula with a hard number?

Please help,

Steve