'Проверка ответов
N = 0
For i = 2 To ActiveWorkbook.Sheets.Count
    A = ActiveSheet.Cells(20, i)
    B = ActiveSheet.Cells(22, i)
     C = ActiveSheet.TextBoxNum.Value
    If (((A * B) + (A + B + B)) * C) = ActiveSheet.Cells(24, i) Then 'Cells(24 +1 26.08.04
        ActiveSheet.Cells(24, i).Value = "+"
        N = N + 1
    Else
        ActiveSheet.Cells(24, i).Value = "-"
    End If
Next
ActiveSheet.Cells(25, 2).Value = N
If (N >= CDec(ActiveSheet.TextBoxOtv.Value)) Then
    ActiveSheet.Cells(26, 1).Value = "Тест СДАН"
Else
    ActiveSheet.Cells(26, 1).Value = "Тест НЕ СДАН"
End If

(((A * B) + (A + B + B)) * C) =  ActiveSheet.Cells(24, i)