Welcome screen...

[SpeeD]

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

 

[Patrick Molloy]

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