Удаление скрытых имен в Excel

Бывает, у пользователей случается траблы с Excel, в виде каких-то скрытых имен. Для решения этой проблемы пользователю приходится завершать Excel через диспетчер задач, либо кликать по всплывающему окну бесчисленное количество раз…

Открываем Excel и включаем режим разработчика: Файл — параметры — Настроить ленту — Разработчик

В ленте появился новый пункт: Разработчик — Visual Basic

Слева в колонке кликаем два раза на «Эта книга«, и справа в открывшемся окне вводим наш код:

Sub DeleteHiddenNames()
	Dim n As Name
	Dim Count As Integer
	
	For Each n In ActiveWorkbook.Names
		If Not n.Visible Then
			n.Delete
			Count = Count + 1
		End If
	Next n
	
	MsgBox "Скрытые имена в количестве " & Count & " удалены"
End Sub

После этого запускаем наш код

Наслаждаемся результатом. Необходимо сохранить изменения. После этого файл должен работать как положено.