'''''''   @@.  엑셀 스타일 제거 , 이름정의 제거 visual basic script  ''''''''''''''''''''

'''''''''''''   1.  복사본 파일을 활용하세요.  ''''''''''''''''''''

'''''''''''''''''''  2.   복사 붙이기 하고 , 해당 코드 클릭하고 실행하기 하세요.  ''''''''''''''''''''

'''''''''''''''''''''''  3.  일정 시간 소요 예상.  '''''''''''''''''''


'--------------------------------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------------------------------

Sub 삭제_스타일제거()   ''''''***************************   스타일 제거  ( 클릭 )
  Dim cell_style As Style
  Dim i As Integer
    On Error Resume Next
  For Each cell_style In ThisWorkbook.Styles
     If Not cell_style.BuiltIn Then cell_style.Delete
       i = i + 1
  Next
    MsgBox i & "개의 셀 스타일 삭제 완료!!!"
End Sub

'--------------------------------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------------------------------

Sub 삭제_이름정의제거()   ''''''***************************   모든 이름정의 삭제   ( 클릭 )
    Dim n As Name
    Dim lngCount As Long
    On Error Resume Next
    lngCount = ActiveWorkbook.Names.Count
    For Each n In ActiveWorkbook.Names
        n.Visible = True
        n.Delete
    Next n
    MsgBox "총 " & lngCount & "개의 [이름] 중, " & lngCount - ActiveWorkbook.Names.Count & "개의 [이름] 삭제 완료."
End Sub


'--------------------------------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------------------------------