Excel2007 - Blinkende Zelle basierend auf einen variablen Wert

[cecen]

Hallo zusammen. Mit dem folgenden Makro suche ich einen bestimmten Wert auf meiner Exceltabelle.

Code:

Sub Schaltenfläche3_Klicken()

Dim FindString As String
    Dim Rng As Range
    FindString = InputBox("Enter a Search value")
    If Trim(FindString) <> "" Then
        With Sheets("Tabelle1").Range("A:I")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
            Else
                MsgBox "Die Suche ergab keinen Treffen!"
            End If
        End With
    End If

End Sub

Meine Frage wäre ob ich die Zelle bei einem Volltreffer blinken lassen könnte.

[Hajo_Zi]

blinken ist aufwendig.
mal paar Beispiele
http://hajo-excel.de/inhalt_vba_blinken.htm