I’ve tried adding your code and come up with something like this:

----Module1---

Sub Blink(MyStart, MyFinish)
Dim c As Range
For Each c In Range("C3").Cells
If c.Interior.ColorIndex = 47 Then

c.Interior.ColorIndex = 2 'White

Else
c.Interior.ColorIndex = 47


End If

Next c

Application.OnTime MyStart, "Blink", MyFinish
End Sub



.................................................. .............

---ThisWorkbook---

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MyStart = BlinkTime = Now()
MyFinish = BlinkTime = Now()
Call Blink(MyStart, MyFinish)
End Sub

Private Sub Workbook_Open()
MyStart = BlinkTime = Now() + TimeValue("00:00:01")
MyFinish = BlinkTime = Now() + TimeValue("23:00:00")
Call Blink(MyStart, MyFinish)
End Sub


I have tried applying it and I end up getting cell C3 changing colou
only once. The only other it changes is when I’m about to qui
(ie. It asks me if I want to save or not).

I think it might be missing something&#8230

--
FloggingDolphinPosted from http://www.pcreview.co.uk/ newsgroup acces