in excel i want to make text flash or blink pls help 1

[is1ma1il]

I would like to get text to blink or flash pls help

 

[Hasit]

To create a blinking cell:

If you define a new Style (Format / Style / Flash/ Add ) and apply that style to the cells you want to flash, paste the following code into a module sheet and run the procedure Flash from Auto-Open if desired you will get the text flashing alternately white and red.

Dim NextTime As Date

Sub Flash()
NextTime = Now + TimeValue("00:00:01&quot
With ActiveWorkbook.Styles("Flash&quot.Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Styles("Flash&quot.Font.ColorIndex = xlAutomatic
End Sub

 

[SkipVought]

Hey Hasit,

GOOD ONE! STAR from me! Skip,
metzgsk@voughtaircraft.com

 

[Hasit]

Thanks Skip. I am just beginning to get into VBA, having resisted it for a LONGGGGGG time.

A star from someone who has delivered some really elegant VBA solutions is much appreciated! :~/

 

[SkipVought]

Hasit,

Like, "Why didn't I think of THAT!"

Really great application of a scheduled event. Glad you are gettin' yer feet wet!! Skip,
metzgsk@voughtaircraft.com

 

[is1ma1il]

Thanks guys

I would like to get into VBA myself was tinkering but not really getting anywhere.

Any suggestions where I start?

 

[SkipVought]

1. Keep tinkering.
2. Use macro record and view results.
3. Ask questions.
4. Buy good reference matl -- I like John Walkenbach

http://www.j-walk.com

5. View Tek-Tips STAR responses (plagiarize and GoTo 1 )
Skip,
metzgsk@voughtaircraft.com