Сумма по цвету на всех листах

[s_bag]

Помогите начинающему. Задача: нужно подсчитать сумму значений в цветных ячейках с разных листов. Т.е. на разных листах (в процессе работы могут создаваться новые) есть итоговые суммы выделенные вручную желтым цветом. Как сделать чтобы на первой странице считалась их сумма? Написал код:
Function СумЦвет(критерий As Range) As Double
' Определяет сумму значений во всех ячейках на всех листах,кроме исходного,
' цвет которых совпадает с цветом в ячейке "критерий"
Application.Volatile True
Dim wSheet As Worksheet
Dim i As Range
For Each wSheet In Worksheets
If wSheet.Name <> "Лист1" Then
For Each i In wSheet
If i.Interior.Color = критерий.Interior.Color Then
СумЦвет = СумЦвет + i
End If
Next
End If
Next
End Function
Не работает.

[Hugo121]

For Each i In wSheet.UsedRange.Cells

[s_bag]

Hugo121, спасибо. Всё заработало!