Hi
Try the below and feedback
--The below macro works on Active workbook Worksheets("Sheet1")..
--Initially it turns the font color of all data in the range
Range("E14:N79") to the default color
--Then search for the entries which match cell G2 and turns the font color
to red..
Sub Macro()
Dim varFound As Variant, varSearch As Variant
Dim strAddress As String
varSearch = Range("G2")
Worksheets("Sheet1").Range("E14:N79").Font.ColorIndex = 0
With Worksheets("Sheet1").Range("E14:N79")
Set varFound = .Find(varSearch, LookIn:=xlValues)
If Not varFound Is Nothing Then
strAddress = varFound.Address
Do
varFound.Font.ColorIndex = 3
Set varFound = .FindNext(varFound)
Loop While Not varFound Is Nothing And _
varFound.Address <> strAddress
End If
End With
End Sub
