Aşağıdaki kodları excel sayfasında bi commandbutton oluşturup o butona atama işlemini yapıyoruz. commandbutona tıkladığımızda yanıp sönme işlemi c1 hücresinde çalışmaya başlayacaktır.Ben C1 hücresini seçmiştim. Siz istediğiniz hücreyi seçebilirsiniz tabi ki.
Sub YANIPSON()
Dim durum As Boolean, i As Single
Do While (True)
If durum=True Then
Range("C1").Select
With Selection.Interior
.ColorIndex=3
.Pattern=xlSolid
End With
For i =0 To 2500
DoEvents
Next
durum=False
Else
Range("C1").Select
Selection.Interior.ColorIndex=xlNone
For i=0 To 2500
DoEvents
Next
durum=True
End If
Loop
End Sub