[엑셀 매크로/VBA] 이름을 모두 삭제

매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :)

 

지금 엑셀시트에 있는 쓸데없는 이름을 모두 제거해줍니다.

 - 이름은 잘 설정해야 오류가 나지 않습니다.

 - 외부에서 참조하게끔 설정된 이름들은 하나같이 아래와 같은 오류를 만들게 됩니다.

보기만 해도 짜증나는 이 메세지의 주요 원인을 없애줍니다.

 

=========아래를 붙여넣기 하세요==========

Sub DeleteNames() 
    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 

 

===============================

https://mwoe.tistory.com/71

[매크로/VBA] 매크로 코드를 실행하는 법