Startup Screen Fade Away

[sbeatton]

Hello all

I have created a startup screen for my workbook but am having difficulties getting it to fade away/turn off. At the moment when the workbook is started up the startup screen shows however it does not close. My VBA is

Code for Userform:
Sub UserForm1_Activate()
Application.OnTime Now + TimeValue("00:00:03"), "KillTheForm"
End Sub

Code for "KillTheForm" in Module 1
Sub KillTheForm()
Unload UserForm1
End Sub

Anyone have any ideas?

Thanks

 

[tusharm]

The name of the activate event procedure is wrong. The best way to get this kind of stuff correct is to let XL do it for you. In the userform code module, at the top of the programming pane there are two drop downs. From the first (Object) drop down select 'userform'. From the 2nd (Procedure) dropdown select 'Activate.' XL will insert a skeleton procedure using the correct syntax.

 

[sbeatton]

I have gone through what you suggested tusharm and it has inserted the following two procedures

Private Sub UserForm_Activate()

End Sub

Private Sub UserForm_Click()

End Sub

Do I insert my code
Application.OnTime Now + TimeValue("00:00:03"), "KillTheForm"

into the first?

I am not sure what the Click() procedure is for.

Would you explain further for me?

Thanks,

 

[tusharm]

Yes to the first question though you could just as easily have discovered the answer for yourself by trying it. {grin}

The second procedure lets one write code that responds to the click event. You can delete that sub. To learn more about the click event check XL VBA help.

I have gone through what you suggested tusharm and it has inserted the following two procedures

Private Sub UserForm_Activate()

End Sub

Private Sub UserForm_Click()

End Sub

Do I insert my code
Application.OnTime Now + TimeValue("00:00:03"), "KillTheForm"

into the first?

I am not sure what the Click() procedure is for.

Would you explain further for me?

Thanks,

 

[sbeatton]

Thanks Tushar

It is now working perfect. I didn;t know about the drop boxes (self taught). Very Useful.