Hidden links? How to get rid of?

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

On Error Resume Next
For Each nm In ActiveWorkbook.Names
nm.Delete
Next nm

End Sub

and works