Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub LocalizeNames() Dim nm As Name Dim wsh As Worksheet Dim sName As String, sRefersto As String Set wsh = ThisWorkbook.Worksheets("RM") For Each nm In ThisWorkbook.Names If nm.Parent.Name = ThisWorkbook.Name Then If nm.RefersToRange.Cells(0).Value = nm.Name And _ nm.RefersToRange.Parent.Name = wsh.Name Then sName = nm.Name sRefersto = nm.RefersTo nm.Delete wsh.Names.Add wsh.Name & "!" & sName, sRefersto End If End If Next nm End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.