Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, [d3:bm10]) Is Nothing Then
Select Case Target.Value
Case "B"
Target.Interior.ColorIndex = 3
Case "HSC"
Target.Interior.ColorIndex = 5
Case "HSP"
Target.Interior.ColorIndex = 7
Case "A"
Target.Interior.ColorIndex = 9
Case "HC"
Target.Interior.ColorIndex = 11
Case "S"
Target.Interior.ColorIndex = 13
End Select
End If
End Sub