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
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