Delete custom styles

Question

Hi All,   I have picked-up some customers tyles that I want to delete it with VBA but get an error message.   Although the styles exists because "? activeworkbook.styles(1).Name" returns "LÓÄþÍN^NuNVþˆHÁ
(n"   activeworkbook.styles(1).delete gives the error Run-time error 1004, delete method of style class failed.   I suspect an Excel 2003 that has meshed up my workbook. Do I have to use another method to delete XL 2003 styles?   Is there a work-around to force delete this style?   Wkr,   JP Ronse

Answer 1

Hi All,

Just to inform you that I could removed the unwanted custom styles. Because it wasn't possible from within Excel or with VBA, I had to edit the XML part:

1. Made a copy of my file and renamed the extension to .zip
2. Open the zip file with 7-zip
3. Export of styles.xml (in folder xl)
4. Open styles.xml with XML Notepad and remove the unwanted styles (cellstyles)
5. Delete styles.xlm from archive.
6. Import the edited styles.xml
7. Closed the archive and rename the extension back to the original (xlsx or xlsm)

Problem solved.

Wkr,

JP Ronse

Answer 2

Glad you found a solution.

Answer 3

Hi Gary,

Tried your suggestion but had the same error. Other ideas are welcome.

I saw also post about deleting a style in XML. How to do this.

I had a look in the XML but see anything wrong or suspected.

Wkr,

JP Ronse

Answer 4

Try to delete it by Name:

Sub dural()

Dim sty As Style

For Each sty In ActiveWorkbook.Styles

If sty.Name = "Unnecessary" Then

sty.Delete

MsgBox "Unnecessary deleted"

End If

Next

End Sub