Überprüfung geladener Dateien

Hallo User
Ich möchte aus einer Arbeitsmappe heraus eine Tabelle einer anderen Arbeitsmappe zum Datenimport öffnen.
Ist die Datei aber schon geöffnet gibt es eine Fehlermeldung.
Wie kann ich mittels VBA Überprüfen ob die Datei geladen ist
(z.B. "Tab1" der Mappe "Wartung")und diese bei Notwendigkeit öffnen bzw. wenn schon geöffnet diese aktivieren??

Hallo Dieter

mal als Ansatz

226. Prüfen ob Datei schon offen
Private Sub Workbook_Open()
For Each x In Workbooks
If x.Name = "test.xls" Then
MsgBox "Datei ist schon geöffnet!"
GoTo weiter
End If
Next
MsgBox "Test wird automatisch geöffnet!"
Workbooks.Open FileName:="C:\Eigene Dateien\Test.xls"
weiter:
End Sub

Gruß Hajo