Abend Andreas,
kopiere die Liste in ein Tabellenblatt der neuen Mappe ab der Zelle A1. Wechsle in diese Tabelle und laß dort dieses Makro laufen.
Sollte reichen.
HTH
, Bernd
--
Option Explicit
Sub BuildNames()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Names.Add Cells(i, 1).Value, Cells(i, 2).Value
Next
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP