Всем доброго дня. Прошу скорректировать код.
Есть книга, в ней 20 листов. 16 из них начинаются на "Карта .....". Необходимо скрыть их и вызывать нужный по команде.
Где у меня ошибка в коде?
Есть книга, в ней 20 листов. 16 из них начинаются на "Карта .....". Необходимо скрыть их и вызывать нужный по команде.
Где у меня ошибка в коде?
| Код |
|---|
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each Worksheet In ActiveWorkbook.Sheets
If Worksheet.Name = "Карта" & "*" Then Worksheet.Visible = xlHidden
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Sheets("Карта БС").Visible = True
|
