Bereichsnamen auslesen, in anderer Datei einlesen

Sub Namen_lesen_und_Bereich_angeben()
For n = 1 To Names.Count
Cells(n, 1) = Names(n).Name
Cells(n, 2) = Names(n).Value
Next n
End Sub

Anschließend kopiere ich das Register in eine andere Datei und versuche dort die Bereichsnamen einzulesen (Spalte A = Bereichsnamen, Spalte B ist der Range)
Das einlesen mit
ActiveWorkbook.Names.Add Name:=Range("A1").Value, RefersTo:=Range("b1").Value
klappt leider nicht. Der Name wird angelegt, aber der Range wird mit "" angezeigt und funktioniert somit nicht.
Hat jemand eine Lösung für mich? Für die Hilfe im voraus besten Dank,
ciao Jörg