John,
Here's an approach you could adapt to your needs that I put together in
response to a question about making a range flash a few weeks ago.
However, I think you might genuinely be better off using conditional
formatting for your font colours and forget about the flashing.
Robin Hammond
www.enhanceddatasystems.com
Private appTime As Double
Private rngSaved As Range
Private bStop As Boolean
Sub Test()
InitBlinking ActiveSheet.Range("a1:d5")
End Sub
Sub InitBlinking(rngBlink As Range)
Set rngSaved = rngBlink
bStop = False
Blink
End Sub
Sub StopBlinking()
bStop = True
End Sub
Public Sub Blink()
Dim rngCell As Range
For Each rngCell In rngSaved
With rngCell
If bStop Then
.Interior.ColorIndex = 2
Else
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 2, 3, 2)
End If
End With
Next rngCell
If Not bStop Then
appTime = Now() + TimeValue("00:00:01")
Application.OnTime appTime, "Blink"
End If
End Sub
"John Davies" <JohnDavies@discussions.microsoft.com> wrote in message
news:6FF93268-9711-4A78-9E6B-BA8DE785FEBA@microsoft.com...
> Is it possible to have flashing text in Excel?
> Say Cell A3 = 1 - Cell A4 = "Correct" (Flashing Blue Text)
> Cell A3 = 2 - Cell A4 = "Incorrect" (Flashing Red Text"
> Cell A3 = 3 - Cell A4 = "Try Again" (Non Flashing)
Bookmarks