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
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.