Blinking Text

[PRINCESS]

Hello my geniuses,

Last night I went through several post with VBA code on how to make text blink. Some of the VBA's and instructions were a bit complex, but I found one that was pretty simple. The only problem is that once I change my
cell to show blank and than change it back to the blinking text parameter, it no longer run the VBA. I guess what I need is something that will restart the VBA everytime the cell changes, instead of just once. Oh ya one more thing, I want my text to be red/white, instead of black/white. Thanx guys!

This is what is in my cell:
=IF(AND($D$6<>"",$H$6<>""),IF($E$19="","UNABLE TO FIND CARRIER OR ROUTING - CHECK WITH SUPERVISOR",""),"")

And this is the VBA:

Option Explicit

Sub ChangeColor()

If Range("C8").Interior.ColorIndex = xlNone Then
Range("C8").Interior.ColorIndex = 1
Range("C8").Font.ColorIndex = 2
Else
Range("C8").Interior.ColorIndex = xlNone
Range("C8").Font.ColorIndex = 1
End If

If Range("C8").Text = "UNABLE TO FIND CARRIER OR ROUTING - CHECK WITH SUPERVISOR" Then
Application.OnTime Now + TimeSerial(0, 0, 1), "ChangeColor"
Else
Range("C8").Interior.ColorIndex = xlNone
Range("C8").Font.ColorIndex = 1
End If

End Sub

 

[tusharm]

For a generic solution that requires minimal VBA support and transfers all formatting responsibility to XL, see http://www.tmehta.com/tmxl/dbfind_byid.asp?id=14

 

[Greg Truby]

Tushar,

Thanks for that tip. You are quite right - a much more flexible approach.
<hr>Princess,

If you'd want to try this, you'd probably want to do two conditions for the conditional formatting on cell C8 -

Condition 1: (Red letters, white/blank background)
Formula is: =AND(LEFT(C8,6)="UNABLE",MOD(SECOND(NOW()),2))

Condition 2: (White Letters, Red Background)
Formula is: =AND(LEFT(C8,6)="UNABLE",NOT(MOD(SECOND(NOW()),2)))

You could put the call to RepeatOneSec() in the workbook's _Open() method.

 

[tusharm]

You are welcome.

Tushar,

Thanks for that tip. You are quite right - a much more flexible approach.
{snip}