Örnek Dosya Yanıp Sönen Yazı Animasyonu

Private Sub yanip_sonen_yazi()
Dim newColor As Integer, myCell As Range, x As Integer, fSpeed
Set myCell = Range("A1")
Application.DisplayStatusBar = True
Application.StatusBar = "Şu anda yazı animasyonu çalışıyor"
newColor = 3     'kırmızı animasyon rengi
fSpeed = 0.3
Do Until x = 3 'saniye cinsinden süre
DoEvents
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Font.ColorIndex = newColor
Loop
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Font.ColorIndex = xlAutomatic
Loop
x = x + 1
Loop
Application.StatusBar = False
Application.DisplayStatusBar = Application.DisplayStatusBar
End Sub