Tarih Formatındaki sayfaları Silme

[Feylosof]

İyi akşamlar diliyorum.

Dosyamda "dd.mm.yyyy" formatında yazılmış olan sayfaları silmek istiyorum. Bunların dışındaki sayfalar silinmesin istiyorum. Bu konuda yardım eder misiniz? Teşekkürler.

 

[Necdet]

Merhaba,

Sub Deneme()

    Dim Syf As Worksheet
    
    Application.DisplayAlerts = False
    
    For Each Syf In Sheets
        If IsDate(Syf.Name) Then Syf.Delete
    Next Syf
    
    Application.DisplayAlerts = True
    
End Sub

 

[Feylosof]

Merhaba,

Sub Deneme()

    Dim Syf As Worksheet
   
    Application.DisplayAlerts = False
   
    For Each Syf In Sheets
        If IsDate(Syf.Name) Then Syf.Delete
    Next Syf
   
    Application.DisplayAlerts = True
   
End Sub

Çok teşekkür ederim @Necdet Bey. Var olun.