Sub Chiude() 'UserForm1.Hide <== visto che devi chiuderla è inutile nasconderla Unload UserForm1 UserForm2.Show '<== mostra l'altra UserForm End Sub
Private Sub UserForm_Activate() Beep '<<<<<<< Application.Wait (Now + TimeValue("0:00:02")) Unload Me End Sub