Adı "Yeni" ile başlayan sayfaları silmek

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Adı "Yeni" ile başlayan sayfaları silmek için bir makroya ihtiyacım var
Saygılarımla

 

[Korhan Ayhan]

Deneyiniz.

Sub Sayfa_Sil()
    Dim Sayfa As Worksheet
    
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Left(Sayfa.Name, 4) = "Yeni" Then
            Sayfa.Delete
        End If
    Next
    
    Application.DisplayAlerts = 1
    Application.ScreenUpdating = 1
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[Tevfik_Kursun]

Teşekkürler Korhan Hocam,
Saygılarımla