Excel VBA Macro- How to Create a Splash Screen for your Excel Workbook

NEW! More Books..

Add Excel Answers & Search To Your Google Toolbar Details

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only ~~$145.00~~. $59.95 Instant Buy/Download, 30 Day Money Back Guarantee & Free Excel Help for LIFE!

Got any Excel Questions? Free Excel Help

Would you like to give your Excel Workbook a 'polished finish' and give your project a professional feel. We can do this by creating a Splash Screen that shows upon the Workbook opening for about 5:10 seconds, then closes itself automatically. This is amazingly simple to do, even if you have have no VBA knowledge at all! Just follow the steps below;

Push Alt+F11, or Tools>Macro>Visual Basic Editor and then go to Insert>UserForm
If the Control Toolbox is not showing, go to View>Toolbox
From the Toolbox left click on the Label Control. Hovering your mouse pointer will display each Controls name.
Left click anywhere on the UserForm to place the Label on it.
Using the size handles, drag out the Label so you can type some brief text in it.
With the Label still selected, left click again. If the Label is not selected do a slow double click. You should now be in Edit mode and should be able to highlight the default Caption Label1.
Type the text: My Splash Screen or whatever, in the Label.
To change other Properties of the Label (font size, color etc) ensure the Label is selected and push F4, or go to View>Properties Window. Then change the required Property in the Label Controls Property Window.
Now double click the UserForm (not the Label) and then select Initialize from the Procedure box, top right of the screen.

Within this Procedure type: Application.OnTime Now + TimeValue("00:00:05"), "KillForm"
Now go to Insert>Module and in here type the code exactly as shown below

Sub KillForm()
Unload UserForm1
End Sub

Your code in the UserForm (Step 10) should look like:

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

Now all we need is some code in the Private Module of the Workbook Object (ThisWorkbook). In the Project Explorer (left of screen) you should see the name of your Workbook. Expand out the folders branching off the bottom of it, until you see ThisWorkbook under Microsoft Excel Objects, double click ThisWorkbook. Another way is to close the Visual Basic Editor, via the top right X, then right click on the Excel icon (top left next to File) and select "View Code"

Now in this Private Module place:

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Now click the top right X to get back to Excel, Save and close the Workbook. Now re-open it and see your splash screen in action!

Download Our Advanced Version of an Excel Workbook Splash Screen

Excel Dashboard Reports & Excel Dashboard Charts 50% Off

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft Ž and Microsoft Excel Ž are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft