[Alexsandra]

con quel codice io non vedo niente.
se tu vuoi far lampeggiare la data nella cella A1 del foglio attivo puoi fare così

Per avviare il lampeggio associ a un pulsante la macro Inizia e per fermarla associ all'altro pulsante la macro ferma. questo il codice completo

Dim colore As Integer, flag As Boolean

Sub inizia()
colore = 0
flag = True
tempo
End Sub

Sub Lampeggio()
  If flag = True Then
  Sheets("foglio1").Range("A1") = Now
  Sheets("foglio1").Range("A1").Font.Color = RGB(255, colore, colore)
  cambiaC
  tempo
  Else
  End If
End Sub

Function tempo()
Application.OnTime Now + 0.000006, "Lampeggio"
End Function

Sub ferma()
    flag = False
End Sub

Public Sub cambiaC()
colore = 200 - colore
End Sub