Automatisk farve af celler ved forskellige værdier (flere end 3)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo exit_Sub  'Ved fejl exit Sub

    Dim v As String    'variabler til indtastet celle værdi
    Dim u As String
    v = Target.Value    'v = aktiv celle værdi
    u = UCase(v)        'u = den aktive celle værdi som stort bogstav

' If Not Intersect(Range("A5:A25"), Target) Is Nothing Then
With Target
    Select Case u
        Case "A"
        .Interior.ColorIndex = 3    'A = Rød
        Case "B"
        .Interior.ColorIndex = 6    'B = Gul
        Case "C"
        .Interior.ColorIndex = 10  'C = Grøn
        Case "D"
        .Interior.ColorIndex = 5    'D = Blå
        Case "E"
        .Interior.ColorIndex = 1    'E = Sort
        Case "F"
        .Interior.ColorIndex = 16  'F = Grå 50%
        Case Else
        .Interior.ColorIndex = xlNone  'Tom celle, ingen farve
    End Select
End With
' End If
exit_Sub:
        Exit Sub
End Sub

'Farvekoder til Interior.Colorindex
      '0        = Tom              1        = Sort
      '2        = Hvid              3        = Rød
      '4        = KnaldGrøn        5        = Blå
      '6        = Gul              7        = Pink
      '8        = Turkis            9        = Rødbrun
      '10        = Grøn            11        = Mørkeblå
      '12        = Olivengul        13        = Violet
      '14        = Blågrøn          15        = Grå 25%
      '16        = Grå 50%          17        = Støvet Blå
      '18        = Blomme          19        = Støvet Lys Gul
      '20        = Blegturkis      21        = Støvet Violet
      '22        = Støvet Lyserød