[KiselevSA]

Для копирования именованных диапазонов надо использовать макрос VBA на вроде этого:

Sub CopyNames()
    Dim Source As Workbook
    Dim Target As Workbook
    Dim n As Name

    Set Source = ActiveWorkbook
    Set Target = Workbooks("Book2.xlsx")

    For Each n In Source.Names
        Target.Names.Add Name:=n.Name, RefersTo:=n.Value
    Next
End Sub

PS: Для копирования именованных диапазонов с листа на лист придется добавить суффикс в имя, т.к. оно должно быть уникальным в пределах книги (например, имя или номер листа)