Чтение и запись данных с имен

Sub dd()
    Dim NewSheet, i, nm
    Set NewSheet = ActiveWorkbook.Worksheets.Add
    i = 1
    For Each nm In ActiveWorkbook.Names
        NewSheet.Cells(i, 1).Value = nm.NameLocal
        NewSheet.Cells(i, 2).Value = "'" & nm.RefersToLocal
        i = i + 1
    Next
End Sub

Dim A
A= [Имя1].Value

Private Sub ExportFormulasВПР()
    Dim iList  As Worksheet
    Dim iSource As Range, iCell As Range
    With Application
        .EnableCancelKey = xlDisabled
        .ScreenUpdating = False
        .DisplayAlerts = False
        .EnableEvents = False
        .Calculation = xlManual
        For Each iList In ActiveWorkbook.Worksheets
            If iList.ProtectContents = True Then
                MsgBox "Рабочий лист " & iList.Name & " защищён ", vbCritical, "Ошибка пользователя !!!"
                Exit Sub
            End If
            On Error Resume Next
            '        On Error GoTo ErrHandler
            Set iSource = iList.UsedRange.SpecialCells(xlFormulas)
            sh1 = iList.Name: If InStr(1, sh1, " ", vbTextCompare) > 0 Then sh1 = Replace(sh1, " ", "")
            For Each iCell In iSource
                If InStr(1, iCell.Formula, "ВПР") > 1 Then
                    ff = Application.ConvertFormula(Formula:=iCell.Address, FromReferenceStyle:=xlA1, _
                            ToReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
                    SaveValue iList, "ИмяПерем" & sh1 & "_" & ff, iCell.FormulaLocal
                    iCell.Value = iCell.Value
                    '                SaveValue iList, "ИмяПерем" & sh1 & "_" & ff, iCell.Formula
                End If
            Next
            '        For Each n In iList.Names
            '            If InStr(1, GetValue(iList, n.Name), "ВПР") > 1 Then
            '                iList.Range(Split(n.Name, "_")(1)) = iList.Evaluate(GetValue(iList, n.Name))
            '            End If
            '        Next
            'ErrHandler:
            '        If Err.Number <> 0 Then
            '            MsgBox Err.Description, vbCritical, Err.Number
            '        End If
        Next
        .Calculation = xlAutomatic
        .EnableEvents = True
        .DisplayAlerts = True
        .ScreenUpdating = True
        .EnableCancelKey = xlInterrupt
    End With
End Sub
Private Sub ImportFormulasВПР()
    Dim iList  As Worksheet
    With Application
        .EnableCancelKey = xlDisabled
        .ScreenUpdating = False
        .DisplayAlerts = False
        .EnableEvents = False
        .Calculation = xlManual
        For Each iList In ActiveWorkbook.Worksheets
            If iList.ProtectContents = True Then
                MsgBox "Рабочий лист " & iList.Name & " защищён ", vbCritical, "Ошибка пользователя !!!"
                Exit Sub
            End If
            For Each n In iList.Names
                If InStr(1, GetValue(iList, n.Name), "ВПР") > 1 Then
                    iList.Range(Split(n.Name, "_")(1)) = GetValue(iList, n.Name)
                End If
            Next
        Next
        .Calculation = xlAutomatic
        .EnableEvents = True
        .DisplayAlerts = True
        .ScreenUpdating = True
        .EnableCancelKey = xlInterrupt
    End With
End Sub
Private Sub SaveValue(ByRef sh As Worksheet, ByVal Parameter As String, ByVal NewValue As String)
    ' создаёт в книге WB скрытое имя Parameter со значением NewValue
    Dim n      As Name: On Error Resume Next: Err.Clear
    NewValue = "#" & NewValue & "#"
    sh.Names(Parameter).RefersTo = NewValue
    If Err Then sh.Names.Add Parameter, NewValue
    sh.Names(Parameter).Visible = False
End Sub
Private Function GetValue(ByRef sh As Worksheet, ByVal Parameter As String) As String
    ' возвращает ранее сохранённое значение в скрытом свойстве книги
    On Error Resume Next
    GetValue = sh.Names(Parameter).RefersTo
    GetValue = Split(GetValue, "#")(1)
'    If InStr(1, GetValue, "ЕСЛИ", 1) > 1 Then
'        GetValue = Replace(GetValue, "ЕСЛИ", "IF")
'        GetValue = Replace(GetValue, "ДЛСТР", "LEN")
'    End If
End Function

iList.Range(Split(n.Name, "_")(1)).FormulaLocal = GetValue(iList, n.Name)