Сумма по цвету ячейки и месяцу

[s_bag]

Пожалуйста, подскажите новичку, как поправить мой код.
Хочу на листе «сводные» посчитать сумму по строке с листа «исходные», по ячейкам, одновременно удовлетворяющим двум условиям:
• Цвет ячейки совпадает с заданным
• Дата в заголовке столбца относится к заданному месяцу
Написал пользовательскую функцию, но что-то не так с передачей массивов в функцию и последующей их обработкой там…
Спасибо

[doober]

Правильность расчетов не проверял,но так работает

Function СумЦветМес(ByRef диапазон_суммирования As Range, ByRef дата As Variant, цвет As Range, месяц As Integer) As Double
Application.Volatile True
Dim myCount As Integer
For myCount = 1 To диапазон_суммирования.Rows.Count
For n = 1 To диапазон_суммирования.Columns.Count
    If диапазон_суммирования(myCount, n).Interior.Color = цвет.Interior.Color And Month(дата(myCount)) = месяц Then
        СумЦветМес = СумЦветМес + диапазон_суммирования(myCount, n).Value
    End If
    Next
Next myCount
End Function

[s_bag]

Спасибо. Всё работает)