Microsoft Office Excel 2003 - Define name

[admin]

Xoá tất cả các Define name (Từ menu Insert -> Name -> Define  trong MS - Excel 2003). Từ Menu thanh công cụ vào Tools -> Marco -> Microsoft Visual Basic tạo Module mới với lệnh như dưới đây rồi chạy Run là OK


Sub DeleteDeadNames()
Dim nName As Name
    For Each nName In Names
        If InStr(1, nName.RefersTo, "#REF!") > 0 Then


            nName.Delete


        End If


    Next nName
    
End Sub