Sayfada X(kapat) ipta ediyor ama butonlada çıkmıyor

[aliergin]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Name = "Liste2" Then
Cancel = True
End If
End Sub

Private Sub CommandButton2_Click()
ActiveWorkbook.Save
Excel.Application.Quit
End Sub

X Kapanmıyacak ama botonla kapanmasını istiyorum arkadaşlar..

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[aliergin]

arkadaşım ilgin için çok teşekkür ederim sağol..