Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_namensliste.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************
Public Sub OVBAde_ExcelNamenAdresseAuflisten()
Dim oName As Object
Dim oAusgabe As Object
Dim z As Long
Set oAusgabe = Sheets.Add
z = 2
oAusgabe.Cells(1, 1) = "Name"
oAusgabe.Cells(1, 2) = "Bereich"
For Each oName In ActiveWorkbook.Names
oAusgabe.Cells(z, 1) = oName.Name
oAusgabe.Cells(z, 2) = ActiveWorkbook.Names.Item(oName.Name)
z = z + 1
Next oName
Set oName = Nothing
Set oAusgabe = Nothing
End Sub