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

[Howardc]

I have a workbook Group profits.2012. this workbook contains a large number of range names. I would like a macro to export/copy these range names into a new workbook Group profitts.2013


Your assistance in this regard is most appreciated

[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.

[Howardc]

Thanks for the help, much appreciated

[Howardc]

Hi Excel Fox

You kindly assisted me by setting up code a while back to copy range names from onme workbook to another. It would be appreciated if you could amend your code to copy only those range names starting with HC for eg HC_Advertising , HC_PROV_BD etc

Regards

Howard

I have also posted on Hi Excel Fox

You kindly assisted me by setting up code a while back to copy range names from onme workbook to another. It would be appreciated if you could amend your code to copy only those range names starting with HC for eg HC_Advertising , HC_PROV_BD etc

Regards

Howard

I have also posted on the following site http://www.mrexcel.com/forum/excel-q...nge-names.html

[Excel Fox]

Sub NameMover()

    Dim nm As Name
    
    For Each nm In Workbooks("NameOfTheBookWhereNamedRangesAreToBeMovedFrom").Names
        If Ucase(LEFT(nm.Name,2)) = "HC" Then
            Workbooks("NameOfTheBookWhereNamedRangesAreToBeMovedTo").Names.Add nm.Name, nm.RefersTo, nm.Visible
        End If
    Next nm
    
End Sub