В файле есть диапазоны, которые работают и в редакции не нуждаются. Чтобы глаза не мозолии даже названия давал, чтобы были в конце списка. Но с ними и Список Имён большой.  
Подумал как бы скрыть и придумал так:  
Sub СкрытьФигню()  
[фигня.1].Name.Visible = 0
[фигня.2].Name.Visible = 0
[фигово.1].Name.Visible = 0
[фигово.2].Name.Visible = 0
End Sub  
 
Это работает, НО дело в том, что имён [фигня.] только штук 10, и [фигово.] штук 20. Получится некрасивый, фигово редактируемый макрос.
Хотелось бы что-то вроде:  
Sub СкрытьФигню()  
Dim m As Name  
If m = Range([чисто.1],[фигня.2],[фигово.1],[фигово.2]) Then
Range(m).Name.Visible = 0  
End If  
End Sub  
 
ЭТО конечно НЕРАБОТАЕТ, это типа ФАНТАЗИЯ :) А суть в том, чтобы объединить все в одной строке, и только с одним .Name.Visible = 0.  
В инете один и тотже пример из книги Эксель.Трюки и эфекты.