Need help: (VBA Function) Sum cells above until specific interior.color

[tears]

Hi,

I'm trying to find an efficient way to sum all cells above the active cell, until it hits a specific cell color. E.g. the function needs to do a reverse loop sum and stop when it hits a cell color.

Any help would be greatly appreciated.
(I have searched all known Excel forums for this to no avail.)

Thanks!

 

[PCL]

Try next UDF
Somewhere put =SUMCELLS(C10,F6)
where F6 is a cell with the same color that the cell where to stop the sum
where C10 is the cell where to start the sum going up in the column

Option Explicit

Function SUMCELLS(WkRg As Range, RefRg As Range) As Double
Dim I  As Integer
   For I = WkRg.Row To 1 Step -1
      If (Application.IsNumber(Cells(I, WkRg.Column))) Then _
            SUMCELLS = SUMCELLS + Cells(I, WkRg.Column)
      If (Cells(I, WkRg.Column).Interior.Color = RefRg.Interior.Color) Then Exit For
   Next
   
End Function

 

[tears]

Works like a charm, thank you very much!