MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Flashing Text in Excel 97

Posted by Chris Wood on January 16, 2000 8:20 PM

Just wondering if anyone out there knows of a method of making cell contents flash or blink on and off (similar to MS Word). I have seen reference to this on a VBA web site however it was some time ago and I can no longer locate the site!
Any suggestions would be greatly appreciated.

Posted by Ivan Moala on January 17, 2000 2:14 AM

Hi Chris
There are a number of ways to do this;
One way is as follows;

Sub FlashCell()

Dim x As Integer
Dim OrigColor As Integer
Dim NewColor As Integer
Dim CellToFlash As Range

OrigC = ActiveCell.Interior.ColorIndex
NewColor = 3
Set CellToFlash = Range("C46")

Do Until x = 20 'Flash 20 times
start = Timer 'Set timer
delay = start + 1 'Set delay
Do Until Timer > delay 'Dountil delay is exceeded = start+1
CellToFlash.Interior.ColorIndex = NewColor
start = Timer
delay = start + 1
Do Until Timer > delay
CellToFlash.Interior.ColorIndex = OrigColor
x = x + 1

End Sub

Experiment with different combinations eg
diff color Fonts etc, I usually flash an object
on/off via the objects visible property. Used in
combination with an objects increment you can
also animate the objects.