How do you cause a cell to flash when activated?

In article , ras711
@discussions.microsoft.com says...
How do you cause a cell to flash when activated?

http://www.tmehta.com/tmxl/dbfind_byid.asp?id=14

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

This should do what you want, sleep 1000 would be equal to one second. Run
the TestFlashRng sub to test it.



Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub FlashRng(Rng As Range)

Dim C As Byte

For C = 1 To 3

Sleep 300

Rng.Interior.ColorIndex = 3

Sleep 400

Rng.Interior.ColorIndex = xlNone

Next C

End Sub

Sub TestFlashRng()

FlashRng Range("A1")

End Sub

Regards, Rocky McKinley





"ras711" wrote in message
...

How do you cause a cell to flash when activated?