Wierd One Here >>>>

[Tom Schreiner]

Hi.
Writing a procedure to cause a cell to blink if certain conditions are not met...
However, a double-click in any cell causes the procedure to stop???

See:
http://www.mrexcel.com/board/viewtop...6567&forum=2&5

Code Here:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then

    If Target.Value < 10 Then

        BlinkBlink Sheet1.Range("A1")

    End If

End If

End Sub



Sub BlinkBlink(BlinkingRange As Range)

Dim Start

    Do Until BlinkingRange.Value >= 10

        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

Thanks,
Tom

[Ivan F Moala]

Hi Tom ??
Not too sure but apparently if you are in some sought of edit mode eg doubleclick
or formula edit / cell edit THEN IF the
Timer passes the Start value the function
call is RESET....not sure why ??
Will have a look further (time pemitting)

Just a side note: Sometimes you discover
different things when you least expect it.
Perhaps this could be used to your advantage
on something else ??
Just as an example Xl97 / Userform:- I found
that exercuting a call to displaying the Help
About ms excel caused the Userform to become
Non Modal !! so I didn't have to do any API
calls ......No one could explain it. I even
asked John Walkenback....

I'll keep this in mind...may come in handy.

[Tom Schreiner]

Thanks for the reply Ivan