Die Zelle, in der sich der letzte Wert geändert hat, soll blinken

Per DDE werden Daten in eine Tabelle eingelesen.
Dies erfolgt in verschiedenen Zeitabständen.
Ist es möglich die Zelle blinken zu lassen,
in der der letzte Wert eingetragen wurde ? 
'in das entsprechende Tabellenblatt einfügen
Private Sub Worksheet_Change(ByVal Target As Range)
   Zelle = Target.Address
   If Merk <> "" Then Range(Merk).Interior.ColorIndex = xlNone
   Merk = Zelle
   Call Blinken
End Sub
'in ein Modul einfügen
Public Zelle, Merk
Const Farbe = 3 'rot
Sub Blinken()
   Dim t As Date
   t = Now + TimeValue("00:00:01")
   m = Format(Now, "ss")
   f = Farbe
   If m Mod 2 = 0 Then f = Farbe Else f = xlNone
   Range(Zelle).Interior.ColorIndex = f
   Application.OnTime t, "Blinken"
End Sub