Khi chạy macro ghi không hiển thị hộp thoại chọn

[tacdangnguoirung]

Các Huynh có ở đây không cho đệ hỏi chút với!
Đệ ghi một macro để xóa một sheet nhưng khi chạy thì nó lại hiển thị một hộp thoại hỏi có muốn xóa không, nhấn vào delete nó mới chịu xóa. Thật khổ tâm. Đệ muốn loại bỏ cái hộp thoại quái gỡ đó đi (Đệ đã thử Assign lại macro rồi nhưng không biết mình phải thêm vào dòng lệnh nào cả giúp đệ với nhé! Đệ Post cả đoạn code lên các huynh xem giùm nha! Cảm ơn các Huynh.
Code như thế này ạ:
Sub Oval1_Click()
Range("A1:H12").Select
Selection.Copy
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C14").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub

 

[tuyetbay]

Code vầy:
Sub Oval1_Click()
Application.DisplayAlerts = False
Range("A1:H12").Select
Selection.Copy
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C14").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Range("A1").Select
End Sub