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