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