oder in ein anderes Dokument zu bekommen.
Wer kann mir da helfen? Ulf
Sub NamenListen()
Dim Namen As Object
Dim LB As Object
Dim Nm$
Set LB = DialogSheets(1).ListBoxes(1)
LB.RemoveAllItems
For Each Namen In ActiveWorkbook.Names
Nm = CStr(Namen)
LB.AddItem Range(Right(Nm, Len(Nm) - 1)).Name.Name & ": " & Nm
Next Namen
DialogSheets(1).Show
End Sub