Run macro only if value in cell increases

[ENTERTAIN]

This code activates my nominated sub on the sheet when I make any change to cells B9:AJ9,B10:AJ10, but what what I need is for the nominated sub to run only when the values in those cells increase and not when the values decrease. Could anyone please show me what I change to make this happen?

Private Sub Worksheet_Change (ByVal Target As Range)
If Not Intersect (Target, Range("B9:AJ9,B10:AJ10)) Is Nothing Then
Call MySub
End If
End Sub

 

[aRandomHelper]

One way is to use the Undo to get the old value:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oldVal
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    If Not Intersect(Target, Range("B9:AJ9,B10:AJ10")) Is Nothing And Target.Count = 1 Then
        Application.Undo
        oldVal = Target.Value
        Application.Undo
        If oldVal < Target.Value Then Call MySub
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

This is assuming you are only changing the cells one at a time.

 

[ENTERTAIN]

One way is to use the Undo to get the old value:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oldVal
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    If Not Intersect(Target, Range("B9:AJ9,B10:AJ10")) Is Nothing And Target.Count = 1 Then
        Application.Undo
        oldVal = Target.Value
        Application.Undo
        If oldVal < Target.Value Then Call MySub
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

This is assuming you are only changing the cells one at a time.

I am only changing values one cell at a time. I will give that a try. Thanks very much for your input.