Splash Screen Problem

[sbeatton]

I have been following the instructions in this thread from Joe as below.

http://www.mrexcel.com/board2/viewtopic.php?t=26964&highlight=splash+screen+startup

Setting it up
Follow these instructions to create a splash screen for your project.
1. Create your workbook as usual.
2. Activate the Visual Basic Editor and insert a new UserForm into the project. The code here assumes this form is named UserForm1.
3. Place any controls you like on UserForm1. For example, you may want to insert an Image control that has your company's logo. Also, you may want to set the UserForm's Caption property to an empty string.
4. Insert the following subroutine into the code module for the ThisWorkbook object:
Private Sub Workbook_Open()
UserForm1.Show
End Sub
5. Insert the following subroutine into the code module for UserForm1:
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"
End Sub
6. Insert the following subroutine into a normal VBA module:
Private Sub KillTheForm()
Unload UserForm1
End Sub

My problem is I can;t seem to get the screen to disappear after 5 secs. Is it a problem with the code or just me?

Thanks,

 

[erik.van.geit]

Hi, sbeatton,

this is working for me
to test very quickly just use
Application.OnTime Now, "KillTheForm"
your form should disappear at once

if you cannot get it to work send me an email
I'll return a working sample

kind regards,
Erik

 

[BrianB]

This is all you need - although the other code does allow other things to happen meantime. I think the problem is that it is Private. Could try deleting that.

Private Sub UserForm_Activate()
    Application.Wait Now + TimeValue("00:00:05")
    Unload Me
End Sub