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

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