Celda parpadeante

Prueba esto a ver si te sirve
En un modulo inserta esto:
Public InicialTime As Date
Public EarlTime As Date
Dim I As Integer
Sub intermitente()
' vuelve intermitente una celda especifica EN ESTE CASO "A1"
EarlTime = Now + TimeSerial(0, 0, 1)
Application.OnTime EarlTime, "intermitente"
For I = 0 To 1000
Range("A1").Interior.Color = vbYellow
DoEvents
Next
I = 0
For I = 0 To 500
Range("A1").Interior.Pattern = xlNone
DoEvents
Next
End Sub
Sub Detiene_Intermitente()
On Error Resume Next
Application.OnTime EarlTime, "intermitente", , False
I = 0
End Sub
No es de lo más elegante pero "da el efecto"
Activas los bucles con ALT +F8 macro "intermitente"
Detienes con macro "Detiene_Intermitente"
Bye
Si te sirvió cierra la pregunta

Gracias si me sirve,, pero en todas las hojas esta intermitente la celda A1, como le hago para que solo sea en la hoja1. Y debajo de que renglón lo pongo (el código que me enviarías )
Saludos