Farbcode

Ich verwende folgendes VBA um ein Shape mit Farbe zu füllen:

Sub Blau()
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 14
Range("H2").Select
End Sub

Gibt es ein Farbschema für diesen Befehl (nicht ColorIndex), ich möchte weitere Farben verwenden?

Vielen Dank
Gregor