Hi RingDing,

Create the following User Defined Funciton (UDF) in a Visual Basic Module
(Alt F11 from the worksheet), make sure that this is in a Module.

Function NotFormula(cell)
NotFormula = Not cell.HasFormula AND Not IsEmpty(cell)
End Function

then save the Visual Basic.

Back to your worksheet, select the cells to apply conditional formatting to.
From the Conditional Formatting menu - select New Formatting Rule, then
select Use a formula to determine which cells to format.

In the Format values where this formula is true field, enter =NotFormula(A2)

Assuming A2 is the first cell in the range of cells to be conditionally
formatted.

Then set the format such as fill color or font color, then click OK.

Hope this helps.
--
If this post helps click Yes
---------------
Peggy Shepard


"RingDing" wrote:

I have a spreadsheet where it contains a lot of date formulas, but I need to
see when I hard key a date. How do I conditional format for that?