Merhaba;
A1 hücrenize bir şeyler yazın ve kodu çalıştırın.
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...