Помогите с Worksheet_Change плз.

[zander]

Имеется такой код.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> [K22].Address Then Exit Sub
Call ChekMyConfirm

End Sub
Можно ли как то его доработать, что бы запускался макрос только если число в ячейке K22 увеличилось по отношению к текущей величине? А если число уменьшилось, то ничего не происходит, а макрос новое, уменьшенное число принимал за текущее и следил за его изменением в сторону увеличения.

[EducatedFool]

Надо где-то хранить последнее значение этой ячейки.
К примеру, пусть это будет ячейка d500
(выберите сами какую-нибудь ненужную ячейку, и сделайте цвет шифта в ней белым)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> [k22].Address Then Exit Sub
    If [k22] > [d500] Then ChekMyConfirm
    [d500] = [k22] ' пишем новое значение
End Sub

Можно, конечно, хранить последнее значение и в переменной, но в ячейке надёжнее...