How to put another condition for B1 in the mentioned code

[omega0010]

Dim OldValue

Private Sub Worksheet_Calculate()
If [A1] <> OldValue Then
Application.EnableEvents = False
[B1] = [B1] + 1
OldValue = [A1]
Application.EnableEvents = True
End If
End Sub


How can we put another condition that if B1> (5) Then [B1] = [B1] + 1