scab
Without code....Edit>Go To>Special>Formulas
Then if you have the color fill button on your toolbar..hit it.
With code......
Sub colorcells()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
If Cel.HasFormula Then
Cel.Interior.ColorIndex = 3 'Red
End If
Next
End Sub
Gord Dibben XL2002