Excel Hücre yanıp sönme efekti

[elgin67653]

Excel'de hücre yanıp sönme efekti için aşağıdaki kodu yazdım. Efekti başlattım çalışıyor fakat dosyadan çıkıp tekrar girdiğimde hücre yanıp sönmüyor elle başlatmam gerekiyor bunu nasıl otomatik yapabilirim yani hücreye girdiğimde direkt kod aktif hale gelsin ve hücre excel'e girdiğimde otomatik olarak yanıp sönmeye başlasın çok uğraştım fakat yapamadım yardım edermisiniz?
Kodlar:
Private Sub Workbook_Open()
For k = 1 To 1E+30 '**** 10 kere yanıp sönecektir arttırıp azaltabilirsiniz.
Cells(2, 3).Interior.ColorIndex = 8
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Cells(2, 3).Interior.ColorIndex = 4
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Cells(2, 3).Interior.ColorIndex = 7
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Cells(2, 3).Interior.ColorIndex = 3
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Next k
End Sub