'''''''''''' 엑셀 visual basic script  ''''''''''''''''''''
''''''''''''     복사 붙이기 하고 , 해당 코드 클릭하고 실행하기 하세요  ''''''''''''''''''''

'''''-----------------------------------------------------------
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