On Nov 17, 5:38*am, apis wrote:
hello everyone,
* * * I would like to create a blinking button...What I have done
is....
================================================== =========================*==

Sub blinking()

Dim X As Integer

x = 0

DD:
X = X + 1

If ActiveSheet.Buttons("Button 1").Text = "BUTTON 1" Then
* *Application.Wait Now + TimeValue("00:00:01")
* *ActiveSheet.Buttons("Button 1").Text = ""

ElseIf ActiveSheet.Buttons("Button 1").Text = "" Then
* *Application.Wait Now + TimeValue("00:00:01")
* *ActiveSheet.Buttons("Button 1").Text = "BUTTON 1"

End If

If X < 10 Then

GoTo DD

End If

End Sub

================================================== ===========
The problem is...this only limited to x=10..meaning its blinking
around 5 times..and during this time, i cant click on anything..i want
the loop to go on and on until user click on another button. something
like a interrupt request... is there any solution for this ?

regards,
Aisar

Here is a small example. Routine calls ButtonMaker to place a button
on the sheet. An "infinite" loop is then entered. The button flashes
in this loop. Once the button is pushed, the loop can exit.

Because we are using DoEvents in the loop, the user shares focus and
can manipulate the worksheet. Using Waits "freezes the user out until
the macro is done.