MyTetra Share
Делитесь знаниями!
код для определения имен выделенных листов
Время создания: 16.03.2019 23:43
Текстовые метки: VBA EXCEL, SelectedSheets
Раздел: !Закладки - VBA - Excel - Листы

'код для определения имен выделенных листов, нужно только поменять название книги:


For Each sh In Workbooks("Книга1.XLS").Windows(1).SelectedSheets

MsgBox sh.Name

Next


Sub PrintSelectedSheets()

Dim oSh As Worksheet

With ThisWorkbook

For Each oSh In .Windows(1).SelectedSheets

Debug.Print oSh.Name

Next 'oSh

End With

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования