Сделал небольшой макрос.
Может что не верно?
Меня смущает одна лишняя переменная :
col = colmns.Value Без нее у меня не работает макрос....
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub СкрываниеСтолбцов()
Sheets(Array("Лист1", "Лист2", "Лист3")).Select
Cells.EntireColumn.Hidden = False
For Each colmns In ThisWorkbook.Names("СтолбцыСкрыть").RefersToRange.Rows
col = colmns.Value
If col <> "" Then
On Error GoTo Ошибка
Columns(col).EntireColumn.Hidden = True
End If
Next colmns
Sheets("Лист4").Select
Exit Sub
Ошибка: MsgBox "не верно введены обозначения столбцов, см. правила обозначения столбцов"
Sheets("Лист4").Select
End Sub
