blinking text

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
 
F

Frank Kabel

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
 
Top