Splash Screen

Hello,
I use a splash screen when a macro opens. Never had a problem with it. Now
a user with Excel 2000 had an error after enabling macros: Microsoft Excel
400 error which has to with showing a form. It was the splash screen. When
I bypassed showing the form, it worked for that user. It works fine showing
the splash screen with my Excel 2000.

Code:

In this workbook:


Private Sub Workbook_Open()
SplashSSS.Show
End Sub

In form:
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:03"), "KilltheForm"
End Sub

In a module:

Public Sub KilltheForm()
Unload SplashSSS
End Sub

Any idea why this would generate an error?

Thanks.

Bill

I have Excel 2000 on this laptop, and your code worked fine here. Where does
the error occur?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bill" <bill@bpiconsulting.com> wrote in message
news:6oraf.3728$2y.1032@newsread2.news.atl.earthlink.net...
> Hello,
> I use a splash screen when a macro opens. Never had a problem with it.
Now
> a user with Excel 2000 had an error after enabling macros: Microsoft Excel
> 400 error which has to with showing a form. It was the splash screen.
When
> I bypassed showing the form, it worked for that user. It works fine
showing
> the splash screen with my Excel 2000.
>
> Code:
>
> In this workbook:
>
>
> Private Sub Workbook_Open()
> SplashSSS.Show
> End Sub
>
> In form:
> Private Sub UserForm_Activate()
> Application.OnTime Now + TimeValue("00:00:03"), "KilltheForm"
> End Sub
>
> In a module:
>
> Public Sub KilltheForm()
> Unload SplashSSS
> End Sub
>
> Any idea why this would generate an error?
>
> Thanks.
>
> Bill
>
>
>

The error occurs immediately after he selects Enable Macros. He gets a
message saying file not found, then hits help and get the 400 error message.
Very strange since it works on lots of Excel 2000 versions just fine.

Bill


"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:OzHxKrJ4FHA.4076@TK2MSFTNGP15.phx.gbl...
>I have Excel 2000 on this laptop, and your code worked fine here. Where
>does
> the error occur?
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Bill" <bill@bpiconsulting.com> wrote in message
> news:6oraf.3728$2y.1032@newsread2.news.atl.earthlink.net...
>> Hello,
>> I use a splash screen when a macro opens. Never had a problem with it.
> Now
>> a user with Excel 2000 had an error after enabling macros: Microsoft
>> Excel
>> 400 error which has to with showing a form. It was the splash screen.
> When
>> I bypassed showing the form, it worked for that user. It works fine
> showing
>> the splash screen with my Excel 2000.
>>
>> Code:
>>
>> In this workbook:
>>
>>
>> Private Sub Workbook_Open()
>> SplashSSS.Show
>> End Sub
>>
>> In form:
>> Private Sub UserForm_Activate()
>> Application.OnTime Now + TimeValue("00:00:03"), "KilltheForm"
>> End Sub
>>
>> In a module:
>>
>> Public Sub KilltheForm()
>> Unload SplashSSS
>> End Sub
>>
>> Any idea why this would generate an error?
>>
>> Thanks.
>>
>> Bill
>>
>>
>>
>
>