Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, j&, LstRw&, Rw&, Col&
If Target.Count > 1 Then Exit Sub
LstRw = Cells(Rows.Count, 1).End(xlUp).Row
If Not Intersect(Target, Range("IV26:IV" & LstRw)) Is Nothing Then
Range(Cells(Target.Row, 11), Cells(Target.Row, 252)).Interior.Color = RGB(255, 255, 255)
For j = 9 To 252
If Cells(16, j) = Target.Value Then
Cells(Target.Row, j).Interior.Color = RGB(255, 127, 0)
Exit For
End If
Next j
End If
If Not Intersect(Target, Range("C26:C" & LstRw)) Is Nothing Then
Range(Cells(26, 11), Cells(LstRw, 252)).Interior.Color = RGB(255, 255, 255)
For Rw = 26 To LstRw
For Col = 11 To 252
If Cells(16, Col).Value = Cells(Rw, 256).Value Then
Cells(Rw, Col).Interior.Color = RGB(255, 127, 0)
Exit For
End If
Next Col
Next Rw
End If
End Sub