You need to create a UDF

Function HasFormula(rng as range)
If rng.Cells.Count = 1 Then
HasFormula = rng.IsFormula
End If
End Sub

and use that in the CF

=HasFormula(A2)

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Arup C" wrote in message
...
Hi,
It was helpful though I was asking for the command which autometically
detects any formula and changes color of the cell like the conditional
formatting command

"Gary''s Student" wrote:

Edit Goto Special Formulas

Then set the format.
--
Gary''s Student - gsnu200753