Mehr als 3 Bedingungen Format

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range, strText As String
Dim Bereich As Range
Set Bereich = Intersect(Target, Range("A1:A100"))
If Not Bereich Is Nothing Then
Select Case Target.Value
Case "A"
Target.Interior.ColorIndex = 4
Case "B"
Target.Interior.ColorIndex = 6
Case "C"
Target.Interior.ColorIndex = 8
Case "D"
End Select
End If
End Sub
Was ich ändern möchte ist
Die Farbe soll nicht nur bei "A" geändert werden sondern auch wenn in der Zelle Abend steht,  _
also wenn in der Zelle irgendwo ein Zeilstring mit A steht.
Vielen Dank im Voraus