Splash Screen / userform
 

I have a splas screen showing with this code:
Private Sub UserForm_Activate()
Const SS_DURATION As Long = 5 'seconds
Application.OnTime Now + TimeSerial(0, 0, SS_DURATION), "KillTheForm"
End Sub

Is it possible to have the splash screen show without anything behind them
for 5-10 seconds or while the workbook is loading.

What I want the user to see is the splash screen alone for a short time. No
Excel worksheets, No Excel tool bars, etc.

Hank

Splash Screen / userform
 

hi
Private Sub UserForm_Activate()
Const SS_DURATION As Long = 5 'seconds
application.visible = false
Application.OnTime Now + TimeSerial(0, 0, SS_DURATION), "KillTheForm"
'application.visible = true 'see note
End Sub
application.visible = false will hide excel and leave only the form showing
application.visible = true will unhide excel at the end of this sub
note: you may want to put the application.visible = true at the end of of
the sub KillTheForm.

regards
FSt1

"HH" wrote:

I have a splas screen showing with this code:
Private Sub UserForm_Activate()
Const SS_DURATION As Long = 5 'seconds
Application.OnTime Now + TimeSerial(0, 0, SS_DURATION), "KillTheForm"
End Sub

Is it possible to have the splash screen show without anything behind them
for 5-10 seconds or while the workbook is loading.

What I want the user to see is the splash screen alone for a short time. No
Excel worksheets, No Excel tool bars, etc.

Hank