Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case B
Target.Interior.ColorIndex = 40
Case Gs
Target.Interior.ColorIndex = 32
Case Gt
Target.Interior.ColorIndex = 33
Case S
Target.Interior.ColorIndex = 38
Case Ir
Target.Interior.ColorIndex = 44
Case CZ
Target.Interior.ColorIndex = 39
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub