Zellkontext-Menü in anderer Farbe

Sub EditContext()
On Error Resume Next
ResetContext
With Application.CommandBars("Cell")
Set oBtn1 = .Controls.Add
Set oBtn2 = .Controls.Add
Set oBtn3 = .Controls.Add
Set oBtn4 = .Controls.Add
Set oBtn5 = .Controls.Add
Set oBtn6 = .Controls.Add
End With
With oBtn5
.BeginGroup = True
.Caption = "Urlaub"
.OnAction = "Urlaub1"
.FaceId = 100
End With
With oBtn3
.Caption = "Krank"
.OnAction = "Krank1"
.FaceId = 90
End With
With oBtn6
.Caption = "Zeitausgleich"
.OnAction = "Zeitausgleich1"
.FaceId = 105
End With
With oBtn2
.Caption = "Feiertag"
.OnAction = "Feiertag1"
.FaceId = 85
End With
With oBtn1
.Caption = "Bildungsurlaub"
.OnAction = "Bildungsurlaub1"
.FaceId = 81
End With
With oBtn4
.Caption = "Pflegefreistellung"
.OnAction = "Pflegefreistellung1"
.FaceId = 95
End With
End Sub

Sub ResetContext()
Application.CommandBars("Cell").Reset
End Sub

Sub Urlaub1()
Application.ScreenUpdating = False
For Each rng In Selection
If rng.Row > 5 And rng.Row < 53 And rng.Offset(0, -10) <> "" Then rng.Value = "Urlaub"
Next
Application.ScreenUpdating = True
End Sub

Sub Krank1()
Application.ScreenUpdating = False
For Each rng In Selection
If rng.Row > 5 And rng.Row < 53 And rng.Offset(0, -10) <> "" Then rng.Value = "Krank"
Next
Application.ScreenUpdating = True
End Sub

Sub Zeitausgleich1()
Application.ScreenUpdating = False
For Each rng In Selection
If rng.Row > 5 And rng.Row < 53 And rng.Offset(0, -10) <> "" Then rng.Value = "Zeitausgleich"
Next
Application.ScreenUpdating = True
End Sub

Sub Feiertag1()
Application.ScreenUpdating = False
For Each rng In Selection
If rng.Row > 5 And rng.Row < 53 And rng.Offset(0, -10) <> "" Then rng.Value = "Feiertag"
Next
Application.ScreenUpdating = True
End Sub

Sub Bildungsurlaub1()
Application.ScreenUpdating = False
For Each rng In Selection
If rng.Row > 5 And rng.Row < 53 And rng.Offset(0, -10) <> "" Then rng.Value = "Bildungsurlaub"
Next
Application.ScreenUpdating = True
End Sub

Sub Pflegefreistellung1()
Application.ScreenUpdating = False
For Each rng In Selection
If rng.Row > 5 And rng.Row < 53 And rng.Offset(0, -10) <> "" Then rng.Value = "Pflegefreistellung"
Next
Application.ScreenUpdating = True
End Sub