Private Sub Worksheet_Calculate()
Dim Target As Range
Set Target = Range("AA5")
If Not Intersect(Target, Range("AA5")) Is Nothing Then
If Target.Value = True Then Application.Calculation = xlManual
End If
End Sub
Private Sub Worksheet_Calculate()
Dim Target As Range, Rs As Long
Set Target = Range("AA5")
If Target.Value = "True" Then Exit Sub
Rs = Application.WorksheetFunction.CountIf(Range("F5:F25"), "<2")
If Rs >= 2 Then
Target.Value = "True"
Else
Target.Value = "False"
End If
End Sub