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
    If BlinkingRange.Interior.ColorIndex = 3 Then
    BlinkingRange.Interior.ColorIndex = 0
    Else: BlinkingRange.Interior.ColorIndex = 3
    End If
    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.

  • Just had a chance to review your replies.
    I will take your advice, I was just trying to do something a little different.

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!