Borrar estilos

[Emar]

Hola
Sucede que tengo un fichero Excel con muchos (cientos) de Estilos que
no sé de dónde salieron. En el formulario Estilo, cuando selecciono
alguno de ellos no se habilita el botón Eliminar.

Traté de eliminarlos por programación utilizando el método Delete de
la clase Style y me da el error 1004 "Error en el método Delete de la
clase Style"

¿Por qué se produce este error? y cómo tratarlo para conseguir
eliminar el Estilo

Muchas Gracias

[Cacho R]

Suponiendo que tienes Excel 2010 (¿ó 2007?), intenta con:
________________

Sub Macro502()
Dim i As Integer
For i = 48 To ActiveWorkbook.Styles.Count
ActiveWorkbook.Styles.Item(i).Delete
Next
End Sub
________________

Del "48" para abajo se encuentran los estilos "nativos": quizás no sea
una buena idea eliminarlos.
Saludos, Cacho.

[Emar]

Muchas gracias por la respuesta,

Aún mantengo el mismo error en la línea
ActiveWorkbook.Styles.Item(i).Delete

error 1004 "Error en el método Delete de la clase Style"

No encuentro ayuda documentada respecto a este error y no sé qué lo
produce.
Saludos

[Cacho R]

Pero, Emar: ¿Cuántos estilos tienes?...
Averígualo ejecutando en ese libro el siguiente código:
________________________

Sub Macro156()
Dim i As Byte
Sheets.Add
For i = 1 To ActiveWorkbook.Styles.Count
Cells(i, "A") = ActiveWorkbook.Styles(i).Name
Next i
ActiveWindow.ScrollRow = [a65536].End(xlUp).Row
End Sub
________________________

Saludos, Cacho.