#### JaredMcCullough

##### Well-known Member

- Joined
- Aug 1, 2011

- Messages
- 516

Code:

```
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
lRow = Range("F" & Rows.Count).End(xlUp).Row
Set MR = Range("F4:F" & lRow)
For Each cell In MR
If cell.Value = "NIS" Then Cells(cell.Row, "A").Interior.Color = vbYellow
If cell.Value = "F" Then Cells(cell.Row, "A").Interior.Color = vbRed
If cell.Value = "LR" Then Cells(cell.Row, "A").Interior.Color = vbGreen
If cell.Value = "A" Then Cells(cell.Row, "A").Interior.Color = vbWhite
If cell.Value = "B" Then Cells(cell.Row, "A").Interior.Color = vbWhite
If cell.Value = "C" Then Cells(cell.Row, "A").Interior.Color = vbWhite
If cell.Value = "D" Then Cells(cell.Row, "A").Interior.Color = vbWhite
Next cell
For Each cell In Range("O4:U5000")
If cell.Value = "P" Then
cell.Interior.Color = vbGreen
End If
If cell.Value = "F" Then
cell.Interior.Color = vbRed
End If
If cell.Value = "" Then
cell.Interior.Color = vbWhite
End If
Next cell
End Sub
```