Forum Discussion
Auto on/off blink cells
Hi! I have been banging my head on my desk for several days now trying to make any of 3 cells blink in a worksheet when a specific criteria has been me. Brief synopsis: One worksheet (WS1) au...
If you really really want this, see the attached sample workbook. There is code in ThisWorkbook and in Module1. Both are required.
Bold item near bottom is tripping "Variable not defined" compile error. Please advise. Thanks!
Sub ManageBlink()
Dim rng As Range
For Each rng In Worksheets("CI").Range("A23,A31,A39")
With rng
If .Value = "PARTS" Then
If .Interior.ColorIndex = 3 Then
.Interior.ColorIndex = 0
Else
.Interior.ColorIndex = 0
End If
End If
End With
Next rng
dtmNext = DateAdd("s", 1, Now)
Application.OnTime dtmNext, "ManageBlink"
End Sub
You must have made a mistake somewhere - I have tested the code and it is working correctly in the sample workbook.
Check very carefully.
- Macros disallowed from outside source, so copy and pasted into mine with necessary changes to sheet names. That's it.
Does the sample workbook that I attached work for you?
- Nope. Still no dice.
- One moment. Forgot second piece. Sorry.