Thanks...

I have the following coding:

Dim dtScheduledTime As Date
Sub Update()
ActiveCell.Offset(1, 0).Activate
Selection.Interior.ColorIndex = 3
dtScheduledTime = Now + TimeSerial(0, 0, 2)
Application.OnTime dtScheduleTime, "Refresh"
End Sub

Sub StopRefresh()
Application.OnTime dtScheduledTime, "Refresh", , True
End Sub

Sub Refresh()
ActiveCell.Offset(1, 0).Activate
Selection.Interior.ColorIndex = 3
End Sub

Sub RunOnTime()
Application.OnTime Date + TimeSerial(0, 0, 2), "Refresh"
End Sub

For some reason, Im not sure what it is, but I cannot get it to repea
itself. Have I forgotten to do something

--
Message posted from http://www.ExcelForum.com