Excel VBA Macro To Move Named Range From One Workbook To Another

[Excel Fox]

Sub NameMover()

    Dim nm As Name
    
    For Each nm In Workbooks("NameOfTheBookWhereNamedRangesAreToBeMovedFrom").Names
        Workbooks("NameOfTheBookWhereNamedRangesAreToBeMovedTo").Names.Add nm.Name, nm.RefersTo, nm.Visible
    Next nm
    
End Sub

No error handling done.... so if the name already exists in the destination workbook, will throw an error.