tạo nút thoát trong Exel

[thao82]

Cho đệ hỏi các cao huynh về nút thoát trong exel được không?
Đệ có 1 file exel trong đó mình gán cho nút lệnh code sau:
Sub macro1()
Dim iname As Variant
Sheet1.Activate
iname = ActiveWorkbook.Name
Windows(iname).Activate
ActiveWindow.Close
End Sub
Tuy nhiên, khi chạy nó chỉ thoát ra khỏi màn hình hiện thời của exel chứ không thoát ra khỏi exel. Các huynh đài Bro xin giúp đệ với. Đệ xin bái phục! Đệ rất cảm ơn!

 

[salam]

Bạn dùng thử.

Application.Quit

 

[hoangvuluan]

dùng sự kiện sau:
Application.Quit