How would I create a pop up box?

[Mightyginger]

What I would like to do is when my spreadsheet opens a small pop up box appears say "Designed by..." and then disappears after a couple of seconds. Is there an easy way of doing this?

Thanks for your help guys!!!



Neil.

 

[SkipVought]

Hi,

What you want is called a splash screen.

In the VB Editor, insert a UserForm and format it with the graphics that you want.

Insert the following subroutine into the code module for the ThisWorkbook object:

In the Workbook Object paste this code...

Sub Workbook_Open()
    UserForm1.Show
End Sub

Paste the following code into the code module for UserForm1:

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

for a 10 second splash.

Paste this code into a module:
Private Sub KillForm()
Unload UserForm1
End Sub
VOAL!

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[Mightyginger]

Thanks - what a superstar. Thank you!!!


Neil.