Sub Cpy_NmRngs()
Dim nm As Name
Dim myNme1 As String
Dim myNme2 As String
Dim NewBook As String
NewBook = "Book2.xls" 'change Book2 to the name of target workbook
For Each nm In ThisWorkbook.Names
myNme1 = nm.Name
myNme2 = nm.RefersTo
Workbooks(NewBook).Names.Add Name:=myNme1, RefersTo:=myNme2
Next nm
End Sub