Frage:
Ich habe vielen Bereichen Namen zugewiesen.
Kann man sich diese in eine separate Tabelle auflisten lassen ?
Dabei soll in Spalte A der Name und und Spalte B 
der zugewiesene Bereich geschrieben werden.
Antwort:
Folgende Routine erstellt ein neues Blatt und listet
alle Namen und deren Bereiche auf:

Const Blattname = "Bereichsnamen"

Sub Namen_listen()
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets(Blattname).Delete
    Sheets.Add
    ActiveSheet.Name = Blattname
    Listname = ActiveSheet.Name
    With Sheets(Listname)
        .Range("A1") = "Name"
        .Range("B1") = "Bereich"
        .Columns("A:A").NumberFormat = "@"
        .Columns("B:B").NumberFormat = "@"
    End With
    Zeile = 2
    For Each objName In ActiveWorkbook.Names
        With Sheets(Listname)
            .Range("A" & Zeile) = objName.Name
            .Range("B" & Zeile) = objName.Value
        End With
        Zeile = Zeile + 1
    Next objName
    With Sheets(Listname)
        .Columns("A:A").AutoFit
        .Columns("B:B").AutoFit
    End With
End Sub