Wendy:
I have a little macro that will display a userform for a set time. Th
userform name is "Patience" and it has text as well as a picture.

It works well EXCEPT the timer won't start with the MODAL=True, whic
you need to bring up the picture with the userform. With MODAL=False
timer starts and it runs perfectly. To get the timer to start wit
MODAL=True, you need to click label1 on the Userform. Notice I have
clock/timer that displays in "B7".

Someone can surely tell us how to start the timer with MODAL=True.

Simple code:

*****
Sub Time_Macro()

Patience.Show
S = Second(Time()) + 10
While Second(Time()) < S
Range("B7").Value = Time()
Wend
Patience.Hide

End Sub

Sub Show()
Patience.Show
End Sub

Sub ShowEnd()
'The following screen updating may not be needed. It works eithe
way.
Application.ScreenUpdating = True
Patience.Hide
End Sub


And, once in a while it won't end, but I think it is the "Wend" tha
needs to be changed

--
Message posted from http://www.ExcelForum.com