Сумма ячеек по цвету с условием (VBA)

[Katya007]

Добрый день.

Подскажите, пожалуйста, как написать код (функцию) в VBA для суммирования ячеек по цвету с условием соответствия конкретной дате. Как в функции суммесли из диапазона дат выбирается критерий конкр дата + к этому сумма ячеек по цвету.
*Ячейки, которые необходимо просуммировать, указываются в диапазоне нескольких строк и столбцов.

Спасибо.

[IgorGO]

Function SumRange#(Range2Sum As Range, Pattern As Range)
  Dim c As Range
  For Each c In Range2Sum
    If c.Interior.Color = Pattern.Cells(1).Interior.Color Then SumRange = SumRange + Val(c)
  Next
End Function