try this
-------------------------------
Public Const TextToFind = "Under Process"
Public RunWhen As Double
Sub StartBlink()
Dim LopX As Long
Dim LopY As Long
On Error Resume Next
For LopX = 1 To 15
For LopY = 1 To 100
If InStr(Trim(LCase(Cells(LopY, LopX))), LCase(TextToFind)) > 0
Then
If Cells(LopY, LopX).Font.Color = vbRed Then
Cells(LopY, LopX).Font.Color = vbBlack
Else
Cells(LopY, LopX).Font.Color = vbRed
End If
End If
Next
Next
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
Err.Clear
End Sub
Sub StopBlink()
Dim LopX As Long
Dim LopY As Long
On Error Resume Next
For LopX = 1 To 15
For LopY = 1 To 100
If InStr(Trim(LCase(Cells(LopY, LopX))), LCase(TextToFind)) > 0
Then
Cells(LopY, LopX).Font.Color = vbBlack
End If
Next
Next
RunWhen = 0
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
Err.Clear
End Sub