In pseudocode:
For i = 5 to 25
if Cell(i,ColNo).Value = 0 Then BlinkIt
Next
Welcome...
'start blinking ;)
Sub StartBlink()
BlinkRange ThisWorkbook.Worksheets(1).Range("A5:A25"), 0, True
End Sub
'stop blinking ;)
Sub StopBlink()
BlinkRange ThisWorkbook.Worksheets(1).Range("A5:A25"), 0
End Sub
'input:
' - the range of cells
' - value to be passed (where condotion)
' - value to start or stop schedule (blinking)
Sub BlinkRange(oRng As Range, cellValue As Variant, Optional bBlink As Boolean = False)
Dim c As Range, dRunWhen As Date
'for each cell in range of cells
For Each c In oRng.Cells
'if cell value is equal to ...
If c.Value = cellValue Then
'change color of font red/white
c.Font.ColorIndex = IIf(c.Font.ColorIndex = 3, 2, 3)
Else
'change to default color of font
c.Font.ColorIndex = xlColorIndexAutomatic
End If
Next c
'period: 1 sec.
dRunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime EarliestTime:=dRunWhen, Procedure:="'" & ThisWorkbook.Name & "'!StartBlink", Schedule:=bBlink
End Sub