Aqui os dejo un pequeño aporte de la funcion Ontime, que reproduce un efecto parpadeo de texto en una celda, el codigo esta en modulo, y tambien en thiswork, espero que os sirva de utilidad.

P.D. Perdonar por la licencia de agradecer a todos los compañeros, y y maestros que nos ayudan a saber mas como hacer excel mas facil.

Saludos Rafa

Efecto parpadeo.zip

Hola Rafael, la macro para que termine de parpadear es el mismo Parpadeo False

Sub Finparpadeo()

ThisWorkbook.Worksheets("hoja1").Range("A1").Font.ColorIndex = _

xlColorIndexAutomatic

Application.OnTime Run, "'" & ThisWorkbook.Name & "'!Parpadeo", , False

End Sub

gracias por el aporte.