VBA/Excel/Access/Word/Forms/Spleash Screen

Hide a Spleash Screen

 
Private Sub UserForm_Activate()
    Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"
End Sub

Private Sub KillTheForm()
    Unload UserForm1
End Sub