Sub Unhidden_Name()
Dim vName As Variant
For Each vName In ThisWorkbook.Names
vName.Visible = 1
Next vName
' Данный макрос делает все имена видимыми

End Sub

 

Реклама