Sekme rengi, renklendirilmiş olan sayfaları silmek

[dedenet]

Excel'de 10 tane sayfam var.
Bunların bazılarının sekme rengini sarı yaptım.
Bu 10 sayfadan sadece sekme rengi sarı olanları silecek bir kod yazmak istiyorum. Yardımcı olursanız sevinirim. Teşekkürler

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi olabilir.
.

[B][COLOR="blue"]Sub SAYFA_SIL()[/COLOR][/B]

Application.DisplayAlerts = False
    For s = ThisWorkbook.Sheets.Count To 1 Step -1
        If Sheets(s).Tab.Color = [B]vbYellow[/B] Then Sheets(s).Delete
    Next
Application.DisplayAlerts = True

[B][COLOR="Blue"]End Sub[/COLOR][/B]

 

[dedenet]

Teşekkürler Ömer Bey..