Sub Repl_Names()
    Dim objName As Name
    For Each objName In ActiveSheet.Names
        ActiveSheet.UsedRange.Replace objName.Name, objName.RefersTo
    Next objName
    For Each objName In ActiveWorkbook.Names
        Cells.Replace objName.Name, Mid(objName.RefersTo, 2), xlPart
    Next objName
End Sub

Sub Repl_Names()
    Dim objName As Name
    For Each objName In ActiveSheet.Names
        ActiveSheet.UsedRange.Replace objName.Name, Mid(objName.RefersTo, 2), xlPart
    Next objName
    For Each objName In ActiveWorkbook.Names
        ActiveSheet.UsedRange.Replace objName.Name, Mid(objName.RefersTo, 2), xlPart
    Next objName
End Sub