Tom’s Tutorials For Excel: Showing And AutoClosing a UserForm
Sometimes you might want to only show a UserForm for a brief time, say 5 seconds. For example, you might want to show a quick message that’s custom-formatted beyond what a MessageBox can do, or you want the effect of a splash screen to advertise your work when the workbook opens.
Here’s a way this can be accomplished.
In a standard module to call the userform:
Sub ShowFiveSeconds()
UserForm1.Show
End Sub
In the UserForm module:
Private Sub UserForm_Activate()
Application.Wait Now + TimeSerial(0, 0, 5)
Unload Me
End Sub
