Colorindex umbennen

Ich habe eine Auswahlliste wobei ich die Zellen nach Ihrer
Farbe sortieren kann.
Welche mit folgender Funktion realisiert ist

Function Farbnummer(Zelle As Range) As Long
Farbnummer = Zelle.Interior.ColorIndex
End Function

Nun möchte ich aber nicht nach dem index sortieren sondern nach dem Namen der Farbe z.B Hellblau anstatt 37

sicherlich nur ein kleiner befehl.

Vielen Dank im Voraus