Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C2")) Is Nothing And Target <> "" Then For i = 5 To 8 For j = 3 To 12 If Cells(i, j).Value = Target Then Cells(i, j).Interior.ColorIndex = 3 End If Next j Next End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B10")) Is Nothing Then Range("C4:L8").Interior.ColorIndex = xlNone End If End Sub