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

'''''''''''' 기타 엑셀 visual basic script  ''''''''''''''''''''
Sub 엑셀문서_자동계산멈춤()   ''''''============================================================
 Application.Calculation = xlManual   '----------------------자동계산 멈춤
End Sub

Sub 자동계산_다시시작_엑셀문서()   ''''''==========================================================
 Application.Calculation = xlautomatic   '-------------------자동계산 재시작
  Application.ScreenUpdating = False     '-------------------------------------화면갱신_멈춤
  Application.ScreenUpdating = True     '--------------------------------------화면갱신_다시시작
End Sub

Sub 자동계산_멈춤_선택영역_()   ''''''============================================================
 ActiveSheet.Range("a1:e10").Calculate   '-------------------선택영역만_재계산
'ActiveSheet.Calculate       '----------------------------------선택시트만_재계산
End Sub