Makro ile sayfa silmek

[mozdem]

Aşağıdaki kodda sil onayını vermesini istemiyorum
nasıl yapabilirim
Teşekkürler

Sub Sayfa_Sil()

    Dim sil As String
    
    sil = ActiveSheet.Name
    
    Sheets.Add
    Sheets(sil).Select
    ActiveWindow.SelectedSheets.Delete
        
End Sub

 

[abdi]

Sub Sayfa_Sil() 
    Dim sil As String 
    Application.DisplayAlerts = False
    sil = ActiveSheet.Name 
    
    Sheets.Add 
    Sheets(sil).Select 
    ActiveWindow.SelectedSheets.Delete 
    Application.DisplayAlerts = True
End Sub

şeklinde deneyin

 

[mozdem]

Çok Teşekkürler :mutlu: