i also ran this macro to get cell reference name replacing named range. it gives a 1004 error.
Sub ReplaceRangeNames()
Dim LR As Integer, TR As Integer
Dim Sh As Worksheet
Application.DisplayAlerts = False
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "New"
Sheets("New").Range("A1").ListNames
LR = Sheets("New").Range("A1").End(xlDown).Row
Sheets("New").Range("B1:B" & LR).Replace What:="=", Replacement:= _
"", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
For Each Sh In Worksheets
If Sh.Name <> "New" Then
Sh.Activate
Sh.Cells.SpecialCells(xlCellTypeFormulas, 23).Select
For TR = 1 To LR
Selection.Replace What:=Sheets("NEW").Range("A" & TR).Value, Replacement:= _
Sheets("NEW").Range("B" & TR).Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next TR
End If
Next Sh
Sheets("New").Delete
Application.DisplayAlerts = True
End Sub