Celdas intermitentes

Holarsmd!
Digamos primero que MS Excel no cuenta con opciones de animación de texto como las que tiene MS Word en su menú de "Formato" | "Fuentes" | "Animación"
Sin embargo es posible usar una macro para que lo haga durante un tiempo.
El siguiente procedimiento me fue proporcionado, hace algún tiempo, por el notable experto "Valedor" -así que suyo es el mérito- y creo que se acerca bastante a lo que solicitas (otra vez, considerando que esta función no es nativa de MS Excel).
Si estas de acuerdo, activa el editor de Visual Basic (presiona Alt+F11), inserta un nuevo módulo ("Insertar", "Módulo") y pega el siguiente código:
Public Sub ParpadeaNoAdyacentes()
'Efecto de parpadeo para celdas no adyacentes
'autor: Mauricio Baeza (aka VALEDOR)
Dim Pausa As Single
Dim Inicio As Single
Dim Fin As Single
Dim Contenido() As Variant
Dim rDatos As Range, c As Range
Dim Mostrar As Boolean
Dim co1 As Integer
'Indica el rango a aplicar el efecto:
Rangoflash = "B6:D9"
Range(Rangoflash).Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Pausa = 0.25
Fin = Timer + 5
Set rDatos = Selection
ReDim Contenido(rDatos.Count - 1)
For Each c In rDatos
Contenido(co1) = c.Value
co1 = co1 + 1
Next c
co1 = 0
Mostrar = True
Do
Inicio = Timer
Do While Timer < Inicio + Pausa
DoEvents
Loop
If Mostrar Then
Application.ScreenUpdating = False
For Each c In rDatos
c.Value = Contenido(co1)
co1 = co1 + 1
Next c
Application.ScreenUpdating = True
co1 = 0
Mostrar = False
Else
Mostrar = True
rDatos.ClearContents
End If
DoEvents
Loop While Timer < Fin
Application.ScreenUpdating = False
For Each c In rDatos
c.Value = Contenido(co1)
co1 = co1 + 1
Next c
Application.ScreenUpdating = True
Erase Contenido
Set rDatos = Nothing
End Sub
Tal vez esto resuelva tu problema. Ojalá así sea.
Un abrazo!
Fernando