Eingabe einer Zahl, Formfarbe änder sich

Sub Umfarben()
Dim Farbe(0 To 4)
Dim X
Farbe(0) = RGB(221, 235, 247)
Farbe(1) = RGB(153, 255, 102)
Farbe(2) = RGB(255, 255, 153)
Farbe(3) = RGB(255, 110, 110)
Farbe(4) = RGB(200, 200, 200)
With ActiveSheet.Shapes(Application.Caller)
With .Fill.ForeColor
X = Application.Match(.RGB, Farbe, 0)
If VarType(X) = vbError Then X = 4
X = X Mod (UBound(Farbe) + 1)
.RGB = Farbe(X)
End With
.TopLeftCell.Value = X
End With
End Sub