엑셀 스타일 지우기

 

엑셀 스타일 지우는 VBA

Sub del_xlstyle()
  Dim style As style
  Dim i As Integer

  On Error Resume Next

  For Each style In ThisWorkbook.Styles
    If Not style.BuiltIn Then style.Delete
      i = i + 1
  Next

  MsgBox i & " style deleted!!!"

End Sub