Автозапуск макросов

[blacklight]

Господа, возник следующий вопрос... написал следующую функцию...

Sub abc() 
' 
' 
' 
' 
b = 0 

For Each a In Selection ' считаем количество ячеек в выделеном 
b = b + 1 
Next a 
If b = 2 Then 
d = 0 
c = 0 
For Each a In Selection ' если их 2, то вычитаем одну из другой, по принципу четная, нечетная 
d = d + a * (-1) ^ c 
c = c + 1 
Next a 
End If 

Application.StatusBar = "Разница = "&d 

End Sub

Мысль в том, как это выводить автоматом при выделении (по возможности не в статусбар, а правее, там, где выводится сумма выделенных ячеек...

С уважением,
blacklight.

P.S. MX с bit.print.info предложил:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 2 Then
Application.StatusBar = "Разница = " & (Target(1) - Target(2))
else
Application.StatusBar = "Разница = ?"
End If
End Sub

но он почему-то не работает...

[SAS888]

Последний макрос вполне работоспособен.
А в какой модуль Вы поместили этот код? Он должен находиться в модуле требуемого листа.

[blacklight]

Спасибо, заработало, но оказалось, что мой код правильнее, т.к. можно выделять ячейки не стоящие рядом... =)