Как выделить и "перебрать" несмежные рабочие листы?

code: #vba
Worksheets(Array(1, 3, 5)).Select
code: #vba
Worksheets(Array("Лист1", "Лист3", "Лист5")).Select
code: #vba
For Each iList In ActiveWindow.SelectedSheets
    MsgBox "Имя рабочего листа : " & iList.Name & vbCrLf & _
    "Индекс рабочего листа : " & iList.Index, vbSystemModal, ""
Next
Поделиться:

Похожие статьи: