Суммирование условно отформатированного диапазона: код VBA, выдающий мне ошибку #VALUE в ячейке, даже если код компилируется и оценивается правильно?

Question

Я имею дело с диапазоном ячеек, в которые встроены правила условного форматирования. Я хочу только суммировать ячейки, которые выражают условное форматирование (в этом случае ячейки выделены зеленым или подсвечены с индексом цвета = 15).

Это шаблон, поэтому ячейки, в которых выделена версия для версии, изменятся.

Код, который я написал до сих пор, компилируется без проблем и правильно оценивает результат, но когда я запускаю функцию ("sumPercentages") в ячейке под диапазоном, он возвращает "#VALUE!" Чего мне не хватает?

Option Explicit

Function sumPercentages(R1 As Range) As Double
   Dim i As Integer
   Dim rowCount As Integer
   Dim rCell As Range
   Dim lCol As Long

   For Each rCell In R1
       If rCell.DisplayFormat.Interior.ColorIndex = 15 Then
           sumPercentages = sumPercentages + rCell.Value
       Else
       End If
   Next rCell
End Function