Hi, I have the cell flashing but it is only visible when i drag the cells and
when the cells are covered with mouse draged cell shadow. Here are my
codings on macro please help to make it visible.

also when I password my sheet to be protected the effect of macro to flash
is shuts off. I have unlocked whole column and also deselected from range
that is being selected for protection

Public RunWhen As Double

Sub StartBlink()
If Range("bq6:bq89").Font.ColorIndex = 2 Then
Range("bq6:bq89").Font.ColorIndex = xlColorIndexAutomatic
Else
Range("bq6:bq89").Font.ColorIndex = 3
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub

also here is my coding for stop blinking
Sub StopBlink()
Range("bq6:bq89").Font.ColorIndex = xlColorIndexAutomatic
Application.OnTime RunWhen, "StartBlink", , False
End Sub

please help me this is an urgent need thank you, you can e-mail me at


NK