Excel Kullanılmayan Hücre stillerini silme

[waytooraider]

Merhaba kullanılmaya excel stillerini silmek istiyorum.100 lerce var bunları kodla silebilirmiyiz?
Home tab'ında styles diye bir bölüm var orada bir çok kullanılmayan artık styles var.Onları silmek istiyorum.

 

[waytooraider]

Bi tane kod buldum yaklaşık 4000 tane styles ismi verdi bence exceli kasan çöplük verilerden lütfen biri yardımcı olsun cep telefonunda olduğu için paylaşamıyorum.

 

[Murat OSMA]

Çözüm sunabilmek için görmek gerek.​

 

[Korhan Ayhan]

Deneyiniz.

Sub Stilleri_Temizle()
    Dim Stil As Style, Say As Long
    
    For Each Stil In ActiveWorkbook.Styles
        If Not Stil.BuiltIn Then
            Stil.Delete
            Say = Say + 1
        End If
    Next
    
    MsgBox Say & " Adet stil silinmiştir.", vbInformation
End Sub

 

[waytooraider]

run time eror '1004':
delete method of style class failed diyor
Ayrıca dosya ekledim
Ayrıca kullanılan stilleri silinmemesi gerekiyor.