Changing colors

[scantor145]

I would like to *continuously*toggle the color of a text string until
certain action is taken.

On a certain userform I have an option button.

When the option button is chosen, a message appears in a text box whic
is previously empty.

Is there a way to change the color of the text back and forth, from sa
black to red to black to red to...., until a specific action is taken?

That is, I want it to *continuously* flicker until another action i
taken, not just red to black.

Using VB6 w/Excel 2000. There is no Timer control. Trust me, I'v
asked before

 

[Guest]

hi,
Sub maccolorchange()
Do While IsEmpty(Range("a1"))
If Not IsEmpty(Range("C5")) Then
Range("C5").Font.ColorIndex = 3
Application.Wait (Now + TimeValue("0:00:01"))
Range("C5").Font.ColorIndex = xlAutomatic
Application.Wait (Now + TimeValue("0:00:01"))
End If
Loop
End Sub
but there is no way out that i could find. endless loop.
c