Hi Rick,
And, if it is a VBA solution that you need, then try something like:
'==========================>>
Public Sub Tester()
Dim sStr As String
With ActiveWorkbook.Names
sStr = .Item("OldName").RefersTo
.Item("OldName").Delete
.Add "NewName", RefersTo:=sStr
End With
End Sub
'<<==========================