Sub Delete_named_ranges()
Dim named_range As Name
For Each named_range In Application.ActiveWorkbook.Names
named_range.Delete
Next
End Sub
CÁCH 2:
Vào tab "Formulas --> Name Managerment .
chọn Names nhiều dòng bằng click chuột kết hợp phím Shift.
cuối cùng nhấn Delete là xong
Bài viết khác