Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
Dim idx
With Target
idx = Application.Match(.Value, Range("A1:A5"), 0)
If Not IsError(idx) Then
.Offset(0, -1).Interior.ColorIndex = Range("A1:A5")(idx).Interior.ColorIndex
.Offset(0, -1).Font.ColorIndex = Range("A1:A5")(idx).Font.ColorIndex
Else
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlColorIndexAutomatic
End If
End With
End Sub