Flashing cell

[Bubba]

Hi,

Does anyone know if it is possible to make a cell/range of cells flash in a spreadsheet so as to draw one's attention to it?

Cheers!

[lenze]

Here is some code that will do that:

Dim NextTime As Date

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

End Sub

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

Note, there are two routines. One to start flashing and one to stop it. Also, you will have to create a style called flash and then format the cells you wish to flash with that style. Change color index as desired.

Don't remember who gave this to me. If it's yours, please take credit