Delete all The Name Ranges In the Workbook

If you want To Delete all the Name Ranges in the workbook. Snapshot below-

Here is the code-

Sub delte_all_name_ranges()
Dim dl As Name
For Each dl In ThisWorkbook.Names
dl.Delete
Next
End Sub