Hidden links? How to get rid of?

Originally Posted by Izandol

There are many (110) hidden names in this file. Please run this code:

Sub unhideNames()
   Dim nm As Name
   For Each nm In ActiveWorkbook.Names
      nm.Visible = True
   Next nm
End Sub

then examine results in Name Manager on Formulas tab.

YES Thank you for solving the problem :D finally got rid of that, thanks to you. Earlier I tried to remove the name using code:

Dim n As Name
On Error Resume Next
For Each n In ActiveWorkbook.Names
n.Delete
Next n


But it did not give the expected result.

Can I have an additional question. How should look macro code that immediately unhidden and delete names without manual interference with the manager names.