Ограничение рекурсии

[Solex]

Подскажите как можно отключить рекурсию после первого прохода
При вводе значения в одну из ячеек B25 S25 B27 S27 вычисляются другие 3

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not (Intersect(Range("B25"), Target) Is Nothing) Then

    Range("S25").Value = Range("B25").Value * 100 
     If Range("S25").Value <= 100 Then
     Range("S27") = 100 - Range("S25").Value
     End If
End If

If Not (Intersect(Range("S25"), Target) Is Nothing) Then
Range("B25").Value = Range("S25").Value * 100
End If


If Not (Intersect(Range("B27"), Target) Is Nothing) Then
    Range("S27").Value = Range("B27").Value * 100 
If Range("S27").Value <= 100 Then
     Range("S25") = 100 - Range("S27").Value
     End If
End If


If Not (Intersect(Range("S27"), Target) Is Nothing) Then
Range("B27").Value = Range("S27").Value * 100
End If

Application.ScreenUpdating = True

End Sub

[EducatedFool]

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False    ' временно отключаем обработку событий

    ' Ваш код

    Application.EnableEvents = True    ' снова включаем обработку событий
End Sub

Пример: http://www.programmersforum.ru/showp...65&postcount=5

[Solex]

Спасибо всё получилось!)