25 | 03 | 2017

VisibleVisual.com | Word VB Articles

Excel Remove all Custom Styles

The code below removes all non build in styles in an Excel document. 

Sub StyleKill()
     Dim styT As Style
     Dim intRet As Integer
     On Error Resume Next
     For Each styT In ActiveWorkbook.Styles
         If Not styT.BuiltIn Then
             If styT.Name <> "1" Then styT.Delete
         End If
     Next styT
 End Sub
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2208309
Latest Articles