drop down data /index match

Not sure I understand, does this help?

Sub almostgenius()
Dim x As Range
Set x = Sheets("Index").Columns(1).Find(Sheets("Career Builder").Range("A2").Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not x Is Nothing Then
        x.Offset(, 1).Font.ColorIndex = 3
        x.Offset(, 2).Font.ColorIndex = 3
    End If
Set x = Nothing

End Sub

Hi John,
sorry your code didn't work for me so ill try the main rooms thanks

Dave