удаленные имена в Wbk все еще существуют и ссылаются на местоположения, которые не существуют, медленный Excel

В справке VBA для свойства RefersTo они дают это пример перечисления всех Имен в Wkb (конкретизированный, чтобы вы могли запустить его как есть)

 Sub showNames()'from VBA Help for "RefersTo"
   Dim newSheet As Worksheet
   Set newSheet = Worksheets.Add
   Dim i As Long, nm As Name
   i = 1
   For Each nm In ActiveWorkbook.Names
     newSheet.Cells(i, 1).Value = nm.Name
     newSheet.Cells(i, 2).Value = "'" & nm.RefersTo
     i = i + 1
   Next
   newSheet.Columns("A:B").AutoFit
 End Sub

Когда я запускаю это в своем текущем проекте, появляется много Имен, которые, как я думал, давно исчезли. Но здесь они до сих пор околачиваются и ссылаются на места, которых уже нет. Я думаю, это то, что замедляет работу моей системы, и я хотел бы избавиться от этих имен, но они не отображаются в окне «Определить имя», так где же мне их найти?

edit: хотел отметить, что элемент «Ссылки» для этого Wbk неактивен.