Работа с вставленными в эксель кнопками - VB

Формулировка задачи:

Добрый день! Только осваиваю программу. Вопрос. Как написать программу таким образом, чтобы при нажатии интегрированной в лист кнопки(1), в ячейке(допустим B2) значение становилось на 1 больше и, соответственно, возможность проделывать это бесконечно. Спасибо большое!

Решение задачи: «Работа с вставленными в эксель кнопками»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim rng As Range
        Set rng = Selection
        'rng.Activate
For Each cel In rng
        i = cel.Row
        j = cel.Column
k = IIf(Button = 1, 1, -1)
        Cells(i, j) = Cells(i, j) + k
Next
End Sub
                        