Efecto permanente en texto

Que puedo hacer para que el efecto permanezca permanentemente en la celda o que la macro se ejecute automáticamente al abrir el libro pero que permanezca asi que no tenga un tiempo de ejecución y termine el efecto

Option Private Module
Public Declare Sub Sleep Lib "Kernel32" (ByVal Millisecundos As Long)
Public velocidad%, color%, n%, i%, ciclos%
'Autor: Pavel Enrique Ramos
Sub color_banner()
On Error Resume Next
velocidad = 1
With [C3]
.Value = "Efecto letras de colores cambiante"
For color = 1 To 14
For i = 1 To Len(.Text)
.Characters(i, 1).Font.color = QBColor(color)
DoEvents
Sleep velocidad
Next
Next
.Clear
End With
End Sub
Public Sub blink()
On Error Resume Next
velocidad = 100
With [C21]
For color = 1 To 10
For i = 2 To 3
.Font.ColorIndex = i
DoEvents
Sleep velocidad * 2
Next
Next
End With
End Sub

saludos