Wie kann ich alle Definierten ZellNamen meiner ArbeitsMappe in einer neuen Tabelle (oder neue Datei) mit dem entsprechendem Bezug auflisten ?
Mario
Sub NamenListen()
Dim sh As Worksheet
Dim wb As Workbook
Dim n As Name, z As Long
Set wb = ActiveWorkbook
Workbooks.Add
Cells(1, 1) = wb.Name
z = 2
For Each n In wb.Names
Cells(z, 1) = n.Name
Cells(z, 2) = "'" & n.RefersTo
z = z + 1
Next n
End Sub