how to input splash screen

Some videos you may like

Excel Facts

Ambidextrous Undo
Undo last command with Ctrl+Z or Alt+Backspace. If you use the Undo icon in the QAT, open the drop-down arrow to undo up to 100 steps.

erik.van.geit

MrExcel MVP
Joined
Feb 1, 2003
Messages
17,832
Hi, Chris,

this works nicely for me
userform module
(assuming you have a "label1")
Code:
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
"normal" module
Code:
Private Sub KillTheForm()
Unload UserForm1
End Sub
and for you the "thisworkbook-code"
Code:
Private Sub Workbook_Open()
UserForm1.Show
End Sub
doing a search for splash screen, surely you will find other methods

kind regards,
Erik
 

Watch MrExcel Video

Forum statistics

Threads
1,118,286
Messages
5,571,313
Members
412,382
Latest member
Langtn02
Top