Excel - fondo intermitente

Hola

estoy tratando de hacer que el contenido de una celda sea intermitente como el word cuando le ponemos formato,fuente,efecto de texto
muchas gracias por su rpta.

Ana

Una versión "bruta" podría ser algo así (se me ocurrió ahora!)

Sub start()
Application.OnTime Now + TimeValue("00:00:01"), "inter"
End Sub

Sub inter()
With [A1].Interior
If .ColorIndex = 1 Then
.ColorIndex = xlNone
Else: .ColorIndex = 1
End If
End With

Call start
End Sub

Saludos desde Baires, JuanC

saludos
Ana