What you refer to as "formula" is either a macro or event code.

As Dave points out, you could have been hit by line wrap.

My reader did not wrap but yours may have.

Here is a cleaned up set with a revision. I used a sheetname. You will edit
that to your sheetname

a) Copy these two macros to a general code module:
=================

Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets("MySheet").Range("B1").Calculate
Application.OnTime Sequence, "StartBlinking"
End Sub

Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub

===================

b) Copy these two events to 'ThisWorkbook' code module:
===================

Private Sub Workbook_Open()
StartBlinking
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub

======================


Gord

On Sun, 03 Feb 2008 12:52:19 +1300, Esra Dekan wrote:

I copied and pasted the formula as provided, so I dont see how that
can be wrong.