'Заполняем временный массив r() значениями либо функции либо числа из d()
        For y = 3 To 8
            If Left(d(i, y), 1) = "=" Then
               r(y) = Evaluate(d(i, y))
            Else
               r(y) = Val(d(i, y))
            End If
         'Debug.Print y & " - " & r(y)
        Next y
        
    'расчитываем массу одной детали
        'только длина
         If d(i, 4) <> "" And d(i, 5) = "" Then d(i, 7) = r(3) * r(4) / 1000
        'для листа, длина и ширина в расчет
         If d(i, 4) <> "" And d(i, 5) <> "" Then d(i, 7) = r(3) * r(4) / 1000 * r(5) / 1000
        
    'масса всех деталей
        If d(i, 6) <> "" And d(i, 7) <> "" Then d(i, 8) = r(6) * d(i, 7)
        If d(i, 6) = "" Or d(i, 4) = "" Then d(i, 8) = Empty
        If d(i, 1) = "" Or d(i, 1) = "Итого:  " Then d(i, 1) = i
    Next i

d(i, 8) = Val(Evaluate(d(i, 6))) * Val(Evaluate(d(i, 7)))

'создаем массив для вычислений d()(значения записываются как формулы т.е. "формула"!!! _
 поэтому все (не вычисляемые в массиве) значения использовать через: Evaluate(d(i, 4))
    d = Range(Cells(17, 4), Cells(z + 1, 11)).Formula
    
    j = UBound(d)
    For i = 1 To j - 1
        'масса одной детали
        If d(i, 4) <> "" And d(i, 5) = "" Then d(i, 7) = Evaluate(d(i, 3)) * Evaluate(d(i, 4)) / 1000 'только длина
        If d(i, 4) <> "" And d(i, 5) <> "" Then d(i, 7) = Evaluate(d(i, 3)) * Evaluate(d(i, 4)) / 1000 _
        * Evaluate(d(i, 5)) / 1000 'для листа, длина и ширина в расчет
        'масса всех деталей
        If d(i, 6) <> "" And d(i, 7) <> "" Then d(i, 8) = Evaluate(d(i, 6)) * d(i, 7)
        If d(i, 6) = "" Or d(i, 4) = "" Then d(i, 8) = Empty
        If d(i, 1) = "" Or d(i, 1) = "Итого:  " Then d(i, 1) = i
    Next i
    
'Строка Итого
    d(j, 1) = "Итого:  ": d(j, 8) = 0
    For i = 1 To UBound(d) - 1
      d(j, 8) = d(j, 8) + d(i, 8) ' Сумма в строку итого
    Next i
    d(j, 8) = Round(d(j, 8), 0)
    
'Выгружаем на лист
    Range(Cells(17, 4), Cells(z + 1, 11)) = d

Private Sub Расчет_Парам()
    Dim i, d()
    d = Range("A6:C8")
    For i = 1 To UBound(d)
        d(i, 3) = Evaluate(d(i, 2))  'при условии наличия именнованых диапазонов
    Next i
    Range("A6:C8") = d
End Sub

Private Sub Расчет_Параметров()
Dim Dzd, Lzd, Hzd, i, d()
Dzd = Cells(3, 1)
Lzd = Cells(3, 2)
Hzd = Cells(3, 3)
d = Range("A6:C8")
'Задача: использовать тект в d(i,2) как формулу для d(i,3)
For i = 1 To UBound(d)
     d(i, 3) = d(i, 2)          ' а так просто переписывается значение(((
     d(i, 3) = Dzd * Lzd * Hzd 'нужно извлечь вот такую формулу из ячейки _
     причем в разных строках массива разные формулы.
Next i
Range("A6:C8") = d
End Sub

Sub Диапазон_Фото_вида_здания_Если()

  ' назначаем диапазон
  If Worksheets("Лист1").Cells(3, 1).Value = 1 Then ' тогда диапазон на листе А1
     ActiveWorkbook.Names("Фото_вида_здания").RefersToR1C1 = "=А1!R1C40:R13C45"
 Else
      If Worksheets("Лист1").Cells(3, 1).Value = 2 Then ' тогда диапазон на листе А2
      ActiveWorkbook.Names("Фото_вида_здания").RefersToR1C1 = "=А2!R1C1:R13C6"
      Else
           If Worksheets("Лист1").Cells(3, 1).Value = 3 Then ' тогда диапазон на листе П1
           ActiveWorkbook.Names("Фото_вида_здания").RefersToR1C1 = "=П1!R1C1:R13C6"
           Else
           ActiveWorkbook.Names("Фото_вида_здания").RefersToR1C1 = "=П2!R1C1:R13C6"
           End If
      End If
  End If
 
End Sub

Sub Диапазон_Фото_вида_здания()
Dim лист
лист = Worksheets("Лист1").Cells(3, 2).Text 'назначаем переменную лист (имя листа)

ActiveWorkbook.Names("Фото_вида_здания").RefersToRange = "=лист!R1C1:R13C6"  'ЭТА СТРОКА ДАЕТ ОШИБКУ 
End Sub

ActiveWorkbook.Names("Фото_вида_здания").RefersToR1C1 = Worksheets(лист).Range(Cells(1, 1), Cells(13, 6))