Sub delstyle()
Dim s
Dim count As Long
Dim styeles As Long
count = 0
styleCount = ActiveWorkbook.Styles.count
For Each s In ActiveWorkbook.Styles
If Not s.BuiltIn Then
s.Delete
count = count + 1
If count Mod 100 = 0 Then
Application.ScreenUpdating = True
Application.StatusBar = count & "/" & styleCount & "個目の処理中"
Application.ScreenUpdating = False
End If
End If
Next
Application.ScreenUpdating = True
Application.StatusBar = "完了"
End Sub
More than 3 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme