Свойство Window.SelectedSheets (Excel)
Возвращает коллекцию Листов , представляющую все выбранные листы в указанном окне. Только для чтения.
expression. Выбранные таблицы
Выражение Переменная, представляющая объект Window .
В этом примере отображается сообщение, если в Book1.xls выбран элемент Sheet1.
For Each sh In Workbooks("BOOK1.XLS").Windows(1).SelectedSheets
If sh.Name = "Sheet1" Then
MsgBox "Sheet1 is selected"
Exit For
End If
Next
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.