Web design

Function CountOnColor(backGroundColorRGB As Long, CountOnlyNonBlank As Boolean, ParamArray OtherArgs()) As Variant
Dim Count As Double
Dim temp As Variant
Dim Cell As Range
    
    Application.Volatile
    
    On Error GoTo 0

    Count = 0
    If (UBound(OtherArgs) < 0) Then
        MsgBox "Not Sufficient parameters Passed"
        CountOnColor = "** ERROR **"
        Exit Function
    End If
    
    For Each items In OtherArgs
        
        temp = 0
        
        Select Case LCase(TypeName(items))
            
            Case Is = "range"
                
                For Each Cell In items
                
                    If Cell.Interior.Color = backGroundColorRGB Then
                        
                        temp = temp + 1
                        If ((CountOnlyNonBlank) And (Cell = "")) Then temp = temp - 1
                    
                    End If
                Next Cell
                
            Case Else
            
                GoTo NON_CELL_ERROR
                
        End Select
        
        Count = Count + temp
            
    Next items

    CountOnColor = Count
    Exit Function
    
NON_CELL_ERROR:
    MsgBox ("Non Cell/Range parameter encountered")
    CountOnColor = "** ERROR **"
    Exit Function
End Function