Thanks for the reply.

I tried putting that code in as follows.
----------------------------------------------------------------------
Sub StartBlink()
If
Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex
= 2 Then

Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex
= xlColorIndexAutomatic
Else

Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex
= 2
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub
---------------------------------------------------------------------

But when I re-open the file following error comes up.

"Subscript Out of range"

Any HELP?