how to input splash screen

[chris2727272727]

could anyonetell me how to put a splash screen on workbook opening

 

[erik.van.geit]

Hi, Chris,

this works nicely for me
userform module
(assuming you have a "label1")

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

Private Sub KillTheForm()
Unload UserForm1
End Sub

and for you the "thisworkbook-code"

Private Sub Workbook_Open()
UserForm1.Show
End Sub

doing a search for splash screen, surely you will find other methods

kind regards,
Erik