Conditional Formatting Code

The following is Placed in VBA onto the sheet for this LeaveChart

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set MyPage = Range("d5:q38")

For Each Cell In MyPage

If UCase(Cell.Value) Like "A*" Then

Cell.Interior.ColorIndex = 35

End If

If UCase(Cell.Value) Like "P*" Then

Cell.Interior.ColorIndex = 34

End If

If UCase(Cell.Value) Like "C*" Then

Cell.Interior.ColorIndex = 6

End If

If UCase(Cell.Value) Like "U*" Then

Cell.Interior.ColorIndex = 26

End If

If UCase(Cell.Value) Like "O*" Then

Cell.Interior.ColorIndex = 36

End If

If UCase(Cell.Value) Like "H*" Then

Cell.Interior.ColorIndex = 39

End If

If UCase(Cell.Value) Like "S*" Then

Cell.Interior.ColorIndex = 22

End If

If Not (UCase(Cell.Value) Like "A*") And Not (UCase(Cell.Value) Like "P*") And Not (UCase(Cell.Value) Like "C*") And Not (UCase(Cell.Value) Like "U*") And Not (UCase(Cell.Value) Like "O*") And Not (UCase(Cell.Value) Like "H*") And Not (UCase(Cell.Value) Like "S*") Then

Cell.Interior.ColorIndex = xlNone

End If

Next

End Sub