아래의 프로시져를 실행시켜보시면

Sub makeNames()
Dim iX As Integer
Dim rName As Range
Worksheets.Add
For iX = 1 To 100
    Set rName = Cells(iX,iX)
    ThisWorkbook.Names.Add "test_" & iX, rName
    rName = "XXX"
Next
End Sub

Name오브젝트도 집합체로 관리를 하게 된다
그래서 Name오브젝트를 관리하는 Names오브젝트가 있고

Names.Add [Name오브젝트에 붙여주고 싶은 이름],[Range오브젝트]

하게 되면 새로운 이름오브젝트가 생성되는것이다

앞에서 만든 100개의 Name오브젝트가 참조하는
범위를 몽땅 삭제 시켜보자
Name오브젝트를 삭제하는것이 아니고 Name오브젝트가
참조하는 범위를 삭제하는것이다..Range에 들어 있는 정보가
아니고 Range오브젝트자체를 삭제하는것이다

Sub destroyNames()
Dim nameX As Name
For Each nameX In ThisWorkbook.Names
    If nameX.Name Like "test_*" Then
        Range(nameX.RefersTo).Delete
    End If
Next
End Sub

Names집합체오브젝트는 WorkBook오브젝트가 관리한다
그래서 ThisWorkBook.Names 로서 통합문서에 있는 모든 Name오브젝트를
순환하면서
Name오브젝트의 이름의 앞에 "test_" 로 시작하는 이름이면
찾아서 해당 Name오브젝트가 참조하는 범위를
Name오브젝트의 RefersTo속성으로 얻어낸다
여기서 얻어낸 값은 Range오브젝트의 주소를 말하고 ,문자열정보를 얻는것이다
이것을 Range("주소")로 접근하여 Delete메소드로 삭제해 버린것이다
이때 이름정의상자에는 그림과 같이 쓰레기가 남게 되는것이다



이런 쓰레기 주소를 참조하는 VBA의 구문이다
엑셀시트상에서의 수식,챠트,피봇테이블등은 모두 에러의 원흉이 되는것이다

=Sheet6!#REF!
와 같은 쓰레기 정보는 [Name오브젝트] 제거 하여야 한다
VBA를 모른다면 하나하나..이름정의상자에서 삭제를 하여야 할것이다
앞의 쌤플에서 100개의 이름을 지었으니 100번을 마우스를 딸그락거려야한다
한꺼번에 쓰레기 이름들을 지워버리도록 하자

Sub deleteBadName()
Dim nameX As Name
For Each nameX In ThisWorkbook.Names
    If nameX.RefersTo Like "*REF*" Then
        nameX.Delete
    End If
Next
End Sub

100번의 마우스딸그락작업을 100번의 순환으로 처리된다
순환의 시작과 순환의 종료두개만 알면 될것을
힘들어 한다
아무튼 깨끗하게 삭제 된것을 볼수 있을것이다
앞에서 Name오브젝트가 참조하는 Range오브젝트를 삭제하는것과
Name오브젝트를 삭제하는것과 틀리다는 점을 잘 이해하시기 바란다

"Result"라는 이름을 지어서 어떤 분석의 결과를
분석작업후 전달하려고 할때

Range("Result")="분석의 결과"

사용자가 부주의로 삭제 하였다면 "Result"라는 이름의
범위는 접근 할수 없고 에러가 나게 된다
그렇다면 이것 하나때문에 전체 소루션이 먹통이 되게 된다
엑셀프로그래밍을 하는 사람으로서
참으로 중요하게 다뤄야 할일이다


Manage Name Object And Use Hidden Sheet

방법은 여러가지가 있겠지만
소루션을 개발할때(Design Time)

• 통합문서내의 모든 Name오브젝트를 순환하면서
• Name오브젝트의 이름과 참조하는 셀의 주소를
별도의 시트에 기록 해둔다
For Each X In ThisWorkBook.Names
....
Next

• 그리고 시트는 사용자가 볼수 없게 감춘다
  Worksheets("기록시트").Visible=xlVeryHidden

사용자가 사용을 할때(Run Time)

• 어떤 이름이 지어진 범위에 접근하여
• Range("Name").Value="결과값"을 입력하기전에
• 해당이름이 지어진 Name오브젝트의 상태가
• 안전한지 점검한다
• 만약 안전하다면 그대로 사용하면 되고
• 만약 손상된 이름이라면 숨겨진 자원등록시트에서
• 해당이름의 Name오브젝트의 정보를 찾아서
• 해당 Name오브젝트를 복구시킨후
• 결과값을 전달하게 한다

숨겨진 워크시트에 값을 입력하거나,읽어낼수 있냐는
자주하는 질문의 답이 될수 있는 문제였고
또한 소루션을 위한 기본적으로 필요한 정보를
알뜰살뜰하게 잘 관리하는 하나의 방법으로서 숨겨진 시트의 역할을
잘 생각해 보시면 좋을것이다