Как выделить несколько листов? - VBA
Формулировка задачи:
Понимаю, что ламерский вопрос, но тем не менее:
Нужные ячейки я выделяю командой
Подскажите, плиз, подобный код, но только для листов.
Решение задачи: «Как выделить несколько листов?»
textual
Листинг программы
Sub HideAllExceptFirst Dim arr As Variant, i As Long ReDim arr(1 To Worksheets.Count - 1) For i = 2 To Worksheets.Count arr(i - 1) = Worksheets(i).Name Next Sheets(arr).Visible = False End Sub