본문 바로가기
Etc./Excel VBA

Excel VBA : Delete Style (불필요한 스타일 삭제)

by 장 아제베도 2013. 11. 25.
반응형
Sub Style_Delete()
Dim n As Integer, yn As Byte
On Error Resume Next
For n = ActiveWorkbook.Styles.Count To 1 Step -1
If ActiveWorkbook.Styles(n).Name = "Normal" Then
Else
ActiveWorkbook.Styles(n).Delete
End If
Next
End Sub

 

반응형