Display A Screen Splash On Startup

This displays a VBA Form Screen Splash when the user opens a speadsheet.

This Section goes into the Splash Form. It allows the splash to stay on for 3 seconds (This can be adjusted)

Private Sub UserForm_Initialize Application.OnTime Now + TimeValue("00:00:03"), "KillSplash" End Sub

This section must be keyed into a Module so that the splash form (Called frmSplash) can be killed.

Sub KillSplash Unload frmSplash frmMenu.Show End Sub

Code Snippits