Need assistance with my blinkblink

  • I have a code that the interior of a cell blinks red if the amount entered is >500.
    A double-click in any cell exits the procedure.
    I am trying to keep any cell that blinks to continue blinking.
    Please advise.


    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
    If Target.Value > 500 Then
    BlinkBlink Sheet1.Range("A" & Target.Row)
    End If
    Columns(1).Interior.ColorIndex = 0
    End If
    End Sub


    Sub BlinkBlink(BlinkingRange As Range)
    Dim Start
    Do Until BlinkingRange.Value <= 500
    Start = Timer
    Do While Timer < Start + 1
    If Timer = 0 Then Start = Timer
    DoEvents
    Loop
    If BlinkingRange.Interior.ColorIndex = 3 Then
    BlinkingRange.Interior.ColorIndex = 0
    Else: BlinkingRange.Interior.ColorIndex = 3
    End If
    Loop
    End Sub

  • Hi Coney


    I have some code on my site that goes like:


    Make a Cell Range Flash Different Colors


    This Procedure will make the range C3:G13 loop through 5 different colors. The changes occur at 2 second intervals




    Code like this however is really only a gimmick :wow: as it renders the Interface unusable while running.


    A much better and more practical choice is Format&gt;Conditional Formating.