BLINKING CELL IN EXCEL

[EmyvilleRL]

Please help me. I wanted a cell in my Excel Worksheet to be blinking, I have entered a code and the cell in question started blinking, but when I close and exit Excel and launch the file again the blinking cell does not start blinking.

How can I make the worksheet to work with the blinking cell immediate the file is open.

I will appreciate your earliest responses and guides.

:help

[mdmackillop]

Call your Blinking code like this. The Code should be placed in ThisWorkbook module


Private Sub Workbook_Open()
Call StartBlinking
End Sub

[EmyvilleRL]

Below is the script I placed on the module,

Option Explicit

Public RunWhen As Double

Sub StartBlink()
If Range("A1").Interior.ColorIndex = 3 Then
Range("A1").Interior.ColorIndex = 6
Else
Range("A1").Interior.ColorIndex = 3
End If
RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink", , True
End Sub

Sub StopBlink()
Range("A1").Interior.ColorIndex = xlAutomatic
Application.OnTime
RunWhen, "StartBlink", , False
End Sub

BUT WHEN YOU SAVE AND EXIT THE WORKBOOK AND OPEN THE FILE/WORKBOOK AGAIN THE BLINKING CELL WILL NOT RUN

WHAT CAN I DO TO MAKE IT BLINK EACH TIME THE WORKBOOK IS OPENED?

:help

[mdmackillop]

As post 2