Параметры вычислений Excel

Function FreezeValue(frml)
    Static OldValue, varInit As Boolean
    If Not varInit Or manCalc Then OldValue = frml: manCalc  = False
    FreezeValue = OldValue
End Function

Public manCalc As Boolean: manCalc = True

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Oblast As Range
    Set Oblast = Intersect(Me.Range("A1:B20"), Target)
    If Oblast Is Nothing Then Exit Sub
    Me.Range("D1:E20").Calculate
End Sub

Sub DeleteAllNames()
    Dim N
    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        On Error Resume Next
        For Each N In ActiveWorkbook.Names
            N.Delete
        Next N
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
End Sub

Sub DeleteAllShapes()
    Dim oL, Sh
    For Each Sh In ActiveWorkbook.Sheets
        For Each oL In Sh.Shapes
            oL.Delete
        Next
    Next Sh
End Sub

Sub Удалить_усл_форм_проверки_имена()
' Удаляет условное форматирование, проверку данных, имена диапазонов на всех листах книги.
    Dim Sh, N
    On Local Error Resume Next
    For Each Sh In ActiveWorkbook.Sheets
        Sh.Cells.FormatConditions.Delete
        Sh.Cells.Validation.Delete
    Next 
    For Each N In ActiveWorkbook.Names
        N.Delete
    Next N
End Sub