No error handling done.... so if the name already exists in the destination workbook, will throw an error.Code: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




Reply With Quote
Bookmarks