Code xóa toàn bộ name trong Excel

Dưới đây là đoạn code xóa toàn bộ name trong Excel.

Option Explicit
Sub RemNamedRanges()
Dim nm As Name
On Error Resume Next
For Each nm In ActiveWorkbook.Names
nm.Delete
Next
On Error Goto 0
End Sub

Sưu tầm