Forum Discussion
Using VBA to make a cell blink
Just to show you how annoying it is, I have attached an example.
Ok, I didn't realize that the conditional formatting would overrule that. I could have it change the fill color of column C instead since there is no conditional formatting there. Here is what I was working on for the VBA code, but I messed it up somewhere.
Sub BlinkCell()
Dim CellToBlink As Range
Set CellToBlink = Range("C8")
Do While Range("G8").Value >= 45
CellToBlink.Interior.ColorIndex = 3
Application.Wait (Now + TimeValue("0:00:01"))
CellToBlink.Interior.ColorIndex = 2
Application.Wait (Now + TimeValue("0:00:01"))
CellToBlink.Interior.ColorIndex = 3
Application.Wait (Now + TimeValue("0:00:01"))
DoEvents
If Range("G8").Value < 45 Then Exit Do
Loop
If Range("G8").Value < 45 Then
CellToBlink.Interior.ColorIndex = 2
End Sub
Just to show you how annoying it is, I have attached an example.
I suppose I could just set up conditional formatting to change column C to fill Red if column D has been a "No" for more than 45 days. The blinking does get annoying.
Ok, that is kind of annoying. I wonder if it would be less annoying if the font blinked instead of the fill color? What would need to be changed in the code?
Replace all instances of Interior in the Blink macro with Font