Zellwerte und Zell-Bereiche kann ich auslesen.
Jetzt suche ich eine Möglichkeit die Wert von Workbook.Names aus einer geschlossenen Arbeitsmappe auszulesen.
Danke
Sub a()
Dim Y As Collection, L As Long, Nm As Name
Set Y = New Collection
For Each Nm In ActiveWorkbook.Names
If Not Nm.Name Like "*!*" Then
L = L + 1
Y.Add Nm.Name, CStr(L)
End If
Next
If Y.Count > 0 Then
For L = 1 To Y.Count
MsgBox Y(L)
Next
End If
Set Y = Nothing
End Sub
Gruß Gerd