Nachfolgender Code soll nur ablaufen, wenn die DAtei nicht ausgeblendet ist. Das funktioniert so. Wenn ich allderdings eine Datei öffne, die mit zwei Fenstern gespeichert wurde, führt die bei"If Windows(ThisWorkbook.Name).Visible zu einer Fehlermeldung - wohl weil mehr als ein Fenster sichtbar ist.
Gibt es eine Möglichkeit, die sichtbaren Windows von ThisWorkbook zu zählen? Dann könnte ich aus dem Sub Aussteigen, wen die Anzahl kleiner als 1 ist. Bei 2 oder mehreren Fenstern würde dann wohl keine Fehlermeldung mehr erscheinen.
Gruss, Peter
Private Sub Workbook_open()
If Windows(ThisWorkbook.Name).Visible = False Then Exit Sub
Call ...
End Sub