Excel VBA : Delete Name (불필요한 이름 삭제)

• 이름 삭제 (1)

Sub Delete_Names()
Dim n As Name
On Error Resume Next
For Each n In ThisWorkbook.Names
       n.Visible = True
       n.Delete
Next n
End Sub

 

 

• 이름 삭제 (2)

Sub del_Names()
Dim n As Long
With ActiveWorkbook
    Do Until .Names.Count = 0
        .Names(1).Delete
    Loop
End With
End Sub

 

• 숨겨진 이름 표시

Sub Show_Names()
Dim n As Name
For Each n In ThisWorkbook.Names
    n.Visible = True
Next n
End Sub