Public Function CONTARCOLOR( RangoSuma As String,CeldaColor As String) As Double

'Ej  CONTARCOLOR("B5";"E2:F42") '' No olvidar las comillas ,
'el primer parametro es la celda donde esta el color, la segunda es el rango
' donde procesamos y contamos sus coincidencias

	Dim oRango As Object
	Dim oCelda As Double
	Dim c As Integer
	Dim f As Integer
	Dim oCuenta as Integer
		oCuenta=0   'inicializamos variable
		oRango = ThisComponent.CurrentController.ActiveSheet
		oCelda = oRango.GetCellRangeByName(CeldaColor).CellBackColor
		oRango = oRango.GetCellRangeByName(RangoSuma)
			For c = 0 to oRango.Columns.Count - 1
			   For f = 0 to oRango.Rows.Count - 1
			      If    oRango.GetCellByPosition(c,f).CellBackColor = oCelda Then
			         oCuenta = oCuenta + 1
			      End If
			   Next
			Next
		CONTARCOLOR = oCuenta

End Function