chris2727272727
Board Regular
- Joined
- Jul 10, 2005
- Messages
- 152
could anyonetell me how to put a splash screen on workbook opening
Option Explicit
Const delay As Double = 2 'seconds
Private Sub UserForm_Activate()
Dim splash As Double
splash = Now + delay / 60 / 60 / 24
Me.Caption = "I will disappear in " & delay & " seconds"
Me.Label1 = "Wait till " & Format(splash, "hh:mm:ss")
Application.OnTime splash, "KillTheForm"
End Sub
Private Sub KillTheForm()
Unload UserForm1
End Sub
Private Sub Workbook_Open()
UserForm1.Show
End Sub