Hey all,
I added to an Excel file the following module:
Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
If cl.Interior.ColorIndex = ColIndex Then
cSum = WorksheetFunction.Sum(cl, cSum)
End If
Next cl
SumByColor = cSum
End Function
and it used to work until today and now all I get is ?NAME# value...
I am using Office 365 the latest version 16.0.11231.20164 32Bit and tried using other modules for SumByColor that are posted around the internet but all ends with the same results.
I added to an Excel file the following module:
Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
If cl.Interior.ColorIndex = ColIndex Then
cSum = WorksheetFunction.Sum(cl, cSum)
End If
Next cl
SumByColor = cSum
End Function
and it used to work until today and now all I get is ?NAME# value...
I am using Office 365 the latest version 16.0.11231.20164 32Bit and tried using other modules for SumByColor that are posted around the internet but all ends with the same results.