Don't do it. You will be reviled for doing so by anyone who uses your
spreadsheet.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"dcstech" wrote in message
...
I have a label in a userform that I would like to blink. I am using a Do
While Loop to do this and it works. The problem is that the userform acts
like it is locked up and will not except any input. Here is my code. Thanks
for any help.

dcstech

Do While TextBox3.Text = ""
Label13.Visible = True
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Label13.Visible = False
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Loop