Excel - Celda que "parpadee"

Hola. Es posible hacer que una celda "parpadee" (que cambie de un color a otro por ejemplo) si se cumple determinada funcion? como seria la forma de lograrlo?

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub parpadear()

Dim color As Byte

[a1].Select

For color = 1 To 32
ActiveCell.Interior.ColorIndex = color
Sleep 100
DoEvents
Next

End Sub

Abraham