In diesem Beispiel wird eine Meldung angezeigt, wenn Sheet1 in BOOK1.XLS markiert ist.
For Each sh In Workbooks("BOOK1.XLS").Windows(1).SelectedSheets If sh.Name = Sheet1 Then MsgBox "Sheet1 is selected" Exit For End If Next