prüfen ob AddIn Datei öffen ist

Function IstMappeOffen(Map As String) As Boolean
Dim istoffen As Boolean
Dim oa As Integer
istoffen = False
Map = UCase(Map)
For oa = 1 To Workbooks.Count
If (UCase(Workbooks(oa).Name)) = Map Then istoffen = True
Next oa
IstMappeOffen = istoffen
End Function

nicht.
Bei normalen Arbeitsmappen geht es aber.
Der Aufruf erfolgt normal mit:
'Symbolleistendatei öffnen
If IstMappeOffen(symbdat) = False Then
Workbooks.Open ThisWorkbook.Path & "\" & symbdat
End If
Was muss ich tun, damit ich abfragen kann ob die Datei (AddIn) offen ist?
Danke Euch.
MFG
Steffen Schmerler