Schriftfarbe auf "automatisch" umstellen

Private Sub CommandButton1_Click()
Dim Zelle As Range, lngR As Long, lngC As Long
' von Hajo
Dim RaBereich As Range, RaZelle As Range
'   Bereich der Wirksamkeit
Set RaBereich = Range("a4:J120")
'Set RaZelle.Offset = "Muster"
'    ActiveSheet.Unprotect
For Each RaZelle In RaBereich 'Range '(Target.Address)
'       überprüfen ob Zelle im vorgegebenen Bereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
'           Kreuz entfernen
RaZelle.Borders(xlDiagonalDown).LineStyle = xlNone
RaZelle.Borders(xlDiagonalUp).LineStyle = xlNone
Select Case RaZelle.Value
Case Is = TextBox1.Text
RaZelle.Font.ColorIndex = 3
Case Is = TextBox5.Text
RaZelle.Font.ColorIndex = 5
Case Else
RaZelle.Font.ColorIndex = 0
End Select
End If
Next RaZelle
'    ActiveSheet.Protect
Set RaBereich = Nothing
Calculate
End Sub