Problem with splash screen

[routeram]

hi,

I am trying to make a splash screen but I am having problems. This i
what I did.

Made a userform frmSplash

Code in 'this workbook' module

Private Sub Workbook_Open()
frmSplash.Show
End Sub

Right clicked on frmSplash and say view code and wrote the code:

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

In a separate Module1:

Private Sub KillSplash()
Unload frmSplash
End Sub

As far as I know I am doing everything right but there is a problem
Once I open the workbook and the splash screen runs and terminate
after 10seconds. But the control keeps coming back to the userfor
every 10 seconds in the VB editor. I placed a bookmark in th
application.ontime....statement and that is for some reason bein
called every 10 seconds even after the userform has been closed.

Please help. Thanks.

I use Excel 2003.

Ra

 

[AlfD]

Hi!

Odd - it works fine for me on 2003.

Alf

 

[routeram]

did you try closing the splash screen with the X button

 

[routeram]

Hi,

Can anyone please help me with this? I have still not been able t
resolve this issue. While hardly anything is noticeable when I a
working on the excel sheet, the control keeps returning back to th
splash screen userform when I work with the VB Editor.

Thanks.

Ra