Cách xoá sheet mà không cho hiển thị thông báo

[giangleloi]

Chào các anh chị và các bạn.
Cho em hỏi có cách nào khi xóa sheet thì sheet sẽ xóa mà không hiện lên câu thông báo như hình không ạ.

 

[Lê Phát Huy]

bạn thêm dòng sau vào trước dòng xoá sheet

application.displayalerts = false

Lưu ý khi thực hiện xong code thì nên trả lại

application.displayalerts = true

 

[comet_1701]

Chào các anh chị và các bạn.
Cho em hỏi có cách nào khi xóa sheet thì sheet sẽ xóa mà không hiện lên câu thông báo như hình không ạ.

Có thể thế này chăng

Sub Test()
Application.DisplayAlerts = False
    Sheets("Sheet2").Delete
  Application.DisplayAlerts = True
End Sub

 

[giangleloi]

Cảm ơn 2 bạn nhiều nhé.