Private Sub Worksheet_Activate()
For k = 1 To 10 '**** 10 kere yanıp sönecektir arttırıp azaltabilirsiniz.
For x = 2 To 100
If Cells(x, 2) <> "" Then
Cells(x, 2).Interior.ColorIndex = 6
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(x, 2).Interior.ColorIndex = xlNone
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
Else
Cells(x, 2) = ""
End If
Next x
Next k
End Sub