Beispiel zur SelectedSheets-Eigenschaft

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