Abfragen zu welchem WS benannter Bereich

Guten Tag
Wie kann ich abfragen, zu welchem Worksheet ein bestimmter benannter Bereich gehört?
Meine Variable strName enthält den String "_B1").
"_B1" ist ein benannter Bereich in Worksheet "AAA".

Ich dachte an
Sub xxx()
Dim strWS as String, strName as String
...
strWS = Range(strName).Parent.Name
...
End Sub

Funktioniert aber nicht.

Danke für Hinweise.

Gruss, Peter