Vba farve af celler

Har fundet flere vba hvor man kan farve efter nøjagtig værdi eks 4= rød osv.
Men jeg kan ikke finde nogen, hvor den gør det efter værdi mellem 1-10, 11-20 osv.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B1:K100"), Target) Is Nothing Then
With Target
    Select Case Target.Value
        Case 11 To 20
        .Interior.ColorIndex = 3
        Case 1 To 10
        .Interior.ColorIndex = 4
        Case 21 To 30
        .Interior.ColorIndex = 1
        Case Else
        .Interior.ColorIndex = xlNone
    End Select
End With
End If
End Sub

Alle Index farverne, hvis det kunne være intersessant.

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    Pastelblå
18    Blomme
19    Bleggul
20    Blegturkis
21    Aubergine
22    Koral
23    Mellemblå
24    Lyspastelblå
25    Mørkeblå
26    Pink
27    Gul
28    Violet
29    Hvid
30    Mørkebrun
31    Blågrøn
32    Havblå
33    Himmelblå
34    Blegturkis
35    Pastelgrøn
36    Lysegul
37    Blegblå
38    Rosa
39    Lavendel
40    Sand
41    Lyseblå
42    Akvamarin
43    Limegrøn
44    Gylden
45    Lysorange
46    Orange
47    Blågrå
48    Grå - 40%
49    Dybblå
50    Havgrøn
51    Mørkegrøn
52    Olivengrøn
53    Brun
54    Blomme
55    Indigo
56    Grå - 80%

Takker :-)

For begge indlæg :-)

Hmm, der sker desværre intet overhovedet :-(

Ups, lavede lige en tastefejl, virker nu og sengen kalder vist :-)

Hej Rosco,
Er der mulighed for, at vælge denne farve og kanter?
Har indspillet denne macro som også lukker, men det skal den ikke.
Kun farve og lægge kanter.

Min macro ser sådan ud:
Sub Knap3232_Klik()
'
' Knap3232_Klik Makro
'

'
    Range("A4:AN54").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="3", _
        TextOperator:=xlBeginsWith
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 12632256
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Application.DisplayAlerts = True
    With ThisWorkbook
        .Save
        .Close
    End With
    Application.DisplayAlerts = True
End Sub
Sub Knap3233_Klik()
'
' Knap3233_Klik Makro
'

Den kan jo stadig være med forudsætnngen for værdier 1-10, 11-20 osv.
Skal bare bruge farve og kanter delen i den vba som du lavede til mig :-)

Kan også oprette ny tråd, så du kan få point :-)