Макрос суммирования на основе цвета ячеек - VBA

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

Здравствуйте. Есть такой вопрос. Где-то тут на форуме нарыл такой скрипт, который производит суммирование данных в ячейках, исходя из их цвета (не УФ). Скрипт этот работает на событии Чендж. А вот когда я пытаюсь перевести его на работу события Калькулейт - то он уже работать не хочет. Как заставить этот макрос прицепить к событию Worksheet Calculate ?

Решение задачи: «Макрос суммирования на основе цвета ячеек»

textual
                            Листинг программы 
                        
                            Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim a As Integer
Dim b As Integer
Dim color As Integer
Dim nocolor As Integer
 
For a = 10 To 13
For b = 6 To 10
 If Cells(a, b).Interior.color = 15773696 Then color = color + Cells(a, b) Else: nocolor = nocolor + Cells(a, b)
 
Range("L" & a) = color
Range("M" & a) = nocolor
 
Next b
 
color = 0
nocolor = 0
 
Next a
 
End Sub