Hi JB,

Try something like:

'=============
Sub Tester()
Dim rng As Range

On Error Resume Next
Set rng = Cells.SpecialCells(xlCellTypeFormulas, xlNumbers)
On Error GoTo 0

If Not rng Is Nothing Then rng.Interior.ColorIndex = 6

End Sub
'<<=============


---
Regards,
Norman



"JB2005" wrote in message
...
Hi Team,

What conditions do we use to format cells with values (numeric) calculated
using formulae from those that have values not derived from formulae?

Thanks for your help/advice.

Regards