Soru belli sheetler haricindeki sheetleri silme

[zulfuernek]

içerisinde 10 larca sheet olan excel çalışma kitabında SYSTEM ve KONTROL FORMU başlıklı sheetler haricindeki tüm sheetleri silmek istiyorum. buna benzer bir konu açmıştım ancak o sadece içserisinde rakam veya belli karakterleri içeren bir silme işlemi ben bu iki sheet haricindeki tüm sheetleri butona tıklayınca silme işlemini nasıl yapabilirim?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Sayfa_Sil()
    Dim Sh As Worksheet
    
    Application.DisplayAlerts = False
    
    For Each Sh In ThisWorkbook.Worksheets
        Select Case Sh.Name
            Case "SYSTEM", "KONTROL FORMU"
            Case Else
                Sh.Delete
        End Select
    Next

    Application.DisplayAlerts = True
    
    MsgBox "Sayfa silme işlemi tamamlanmıştır.", vbInformation
End Sub