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