SelectedSheets Property Example
This example displays a message if Sheet1 is selected in Book1.xls.
For Each sh In Workbooks("BOOK1.XLS").Windows(1).SelectedSheets
If sh.Name = "Sheet1" Then
MsgBox "Sheet1 is selected"
Exit For
End If
Next