hat jemand eine Idee wie ich unendlich viele, unbeabsichtigt abgespeicherte Styles (Formatvorlagen)
loswerde bzw. löschen kann.
Sie lassen sich nur einzeln löschen und bei über 3.000 macht das nicht wirklich Spass.
Vorab vielen Dank.
Gruss Matthias
Sub weg_damit()
Dim st As Style
For Each st In ActiveWorkbook.Styles
Select Case st.Name
Case "Normal"
Case Else: st.Delete
End Select
Next
End Sub