blinking text

  • Thread starter Thread starter Richard
  • Start date Start date
R

Richard

Anyone have any ideas on how to make the text blink on and
off. Text will be only in one cell. Thanks in advance
 
Hi
first a warning: Don't do this. It will slow down Excel and is for most
people probably annoying :-)

If you need some code, try the following:
Dim NextTime
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With Worksheets("Sheet1").Range("A1").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub

Sub Stop_It()
Application.OnTime NextTime, "Flash", Schedule:=False
Worksheets("Sheet1").Range("A1").Font.ColorIndex=xlAutomatic
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top