Welcome screen...
the delay in this demo is 10 seconds ...
Private Sub UserForm_Activate()
Dim t As Date
Application.Visible = False
t = Now()
Do While (Time) < TimeSerial(Hour(t), Minute(t), Second(t) + 10)
DoEvents
Loop
End
Application.Visible = True
End Sub
"SpeeD" wrote:
hi.
I´ve made a welcome screen in may worlbook and past the code inside
workbook.open so it would load when my workbook opens. The problem is that i
what the welcome screen to appear before my workbook is visible below!
How can do this??
Thansks SpeeD
|