How to blink a cell's data?

[Eloise T]

I found the code (see attachment) which changes the cell A1 font from red to green and back but is hanging on the last line:

Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True

Any ideas what is wrong?

The entire subroutine:

Sub StartBlink()

  Dim xCell As Range

  Dim xTime As Variant

  Set xCell = Range("A1")

  With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font

      If xCell.Font.Color = vbRed Then

          xCell.Font.Color = vbGreen

      Else

          xCell.Font.Color = vbRed

     End If

  End With

  xTime = Now + TimeSerial(0, 0, 1)

  Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True

End Sub

 

[NARAYANK991]

Hi ,

Place the code in a module , and you can refer to the procedure just by its name.

See the attached file.

Narayan

 

[Eloise T]

Hi ,

Place the code in a module , and you can refer to the procedure just by its name.

See the attached file.

Narayan

Thank you!

 

[shahin]

@ Eloise T, hi there!! I went through few of your posts and noticed that you are not comfortable with the "Like" button, I meant if anybody stretches a helping hand and in reality his effort helps you then it's a way of gratitude to like his post by pressing the like button. Thanks.