Sucheinstellung sollte rot angezeigt werden oder so

Hallo zusammen brauche wiedereinmal eure Hilfe.

Wenn ich mit str.+F eine Suche starte, dann springt er wenn vorhanden an die Stelle des xls-Files. Nun kann eine Exceltabelle sehr unübersichtlich gemacht sein, das man nicht sofort sieht wo der jetzt gerade hingesprungen ist. Gibt es eine Einstellung, die das Hervorhebt? Oder in einer anderen Farbe,Fett anzeigt?

Ich danke jedem der mich hier weiterbringt im Voraus.

MFG

Sub Suche()
 Dim ergebnis As String
 Cells(1,1).Activate
 ergebnis = InputBox("Nach was auch immer suchen")  
 Set zelle = Cells.Find(What:=ergebnis, LookIn:=xlValues)
  If Not zelle Is Nothing Then
   zelle.Activate
   With Selection.Interior
              .ColorIndex = 3
              .Pattern = xlSolid
    End With
  Else
  MSG = MsgBox(ergebnis & " nicht vorhanden!", vbOKOnly, "Suche")  
 End If
End Sub