Benannte Bereiche dokumentieren

Sub NamenDokumentieren()
    Dim nm As Name, out As Worksheet, r As Long
    Set out = Worksheets.Add
    out.Name = "Namen_Report_" & Format(Now, "hhnnss")
    out.Range("A1:C1").Value = Array("Name", "Bezieht sich auf", "Sichtbar")
    r = 2
    For Each nm In ThisWorkbook.Names
        out.Cells(r, 1).Value = nm.Name
        out.Cells(r, 2).Value = nm.RefersTo
        out.Cells(r, 3).Value = nm.Visible
        r = r + 1
    Next nm
    out.Columns.AutoFit
End Sub