Oluşturulan sayfaları VBA kullanarak Excel'de otomatik olarak nasıl silebilirim?

Question

Sayfa listesini silmek için bu kodu kullandım, ancak pop-up'ları DELETE veya CANCEL olarak görüyorum.

Sub Del() 

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

Sayfaları listelemeden pop up'ları görmem gerekiyor.

Answer 1

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