Fungsi Sript berikut untuk membuat Animasi Text berkedip atau blink ganti warna kolom cell nya, jadi text yang ada di sheet1 range A1 textnya bekedip jadi animasi, biasanya di fungsikan untuk warning atau style,
silahkan di improve ,
Public runwhen As Double
Sub auto_open()
With ThisWorkbook.Worksheets("sheet1").Range("A1:A1").Font
If .ColorIndex = 2 Then ' warna biru
.ColorIndex = 8 ' warna putih
Else
If .ColorIndex = 8 Then ' warna hijau
.ColorIndex = 3 ' warna merah
Else
.ColorIndex = 2 ' warna biru
End If
End If
End With
runwhen = Now + TimeSerial(0, 0, 1)
Application.OnTime runwhen, "'" & ThisWorkbook.Name & "'!auto_open", , True
End Sub