[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oDat
With Sheets("Sheet3")
oDat = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value
For i = 1 To UBound(oDat, 1)
If Target.Value = oDat(i, 1) Then Target.Interior.Color = .Cells(i, 2).Interior.Color: Exit For
Next i
End With
End Sub[/B][/COLOR]