'''''''   1.  엑셀 visual basic script  ''''''''''''''''''''

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

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



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 패치_스타일_삭제()   ''''''''''  스타일 제거    '''''''''========== 1. 실행 ==================
  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 패치_이름정의_삭제()    '''''''''   모든 이름정의 삭제    ''''''========== 2. 실행 ================
    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