On Nov 23, 2:40*pm, Mike wrote:
Try this
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
For Each Target In rng
* * If Target.HasFormula Then
* * * * If Left(Target.Formula, 8) = "=VLOOKUP" Then
* * * * * *Target.Font.Color = -10477568
* * * * Else
* * * * * *Target.Font.Color = -11489280
* * * * End If
* * Else
* * * * Target.Font.Color = -16777024
* * End If
Next Target
End Sub



"Chet" wrote:
I want to change the font color on individual cells in a range based
on three different criteria.

1. A constant just entered as a number. (red font color)
2. A direct link where a cell has contents something like =A5 or
=Sheet2!B8 (green font color)
3. Any other type of formula such as =vlookup(a4,b4:b9,2,0). *I
realize that this item is probably a subset of #2 but I am trying to
change the font color on something like this and make it different
than #2. (and different than #1) (blue font color) *So direct link
cells are excluded from this group.

Thanks,
Chet- Hide quoted text -

- Show quoted text -

The only problem I see here is that the formula is not necessarily a
vlookup. It could be any formula. Chet