Why this code don't close excel? Code is assigned to button into userfor

Private Sub CommandButton4_Click(
ActiveWorkbook.Sav
If Workbooks.Count 1 The
ActiveWorkbook.Clos
Els
Application.Qui
End I
End Su

TIA