VBAを使用してExcelで生成されたシートを自動削除する方法は？

Question

このコードを使用してシートのリストを削除しましたが、DELETEまたはCANCELのポップアップが表示されます。

Sub Del() 

Dim A As Integer 
A = Worksheets("RLI").Range("G2") 
For i = 1 To A 
Worksheets(CStr(i)).Delete 
Next i 
End Sub 

ポップアップを見ずにシートのリストを削除する必要があります。

Answer 1

Application.DisplayAlerts = False 
'delete the sheet 
Application.DisplayAlerts = True