Visual Basic - Funcion contar por color

no puedo encontrar el error "NO SE HA DEFINIDO SUB O FUNCTION"

Function CONTARPORCOLORFC(CeldaColor As Range, Rango As Range) As Integer

Dim Celda As Range
Dim Total As Integer
Dim Color As Long

Color = Colorfc(CeldaColor)

For Each Celda In Rango.Cells
If Colorfc(Celda) = Color Then
Total = Total + 1
End If
Next Celda

CONTARPORCOLORFC = Total

End Function

ME PODRIAN APOYAR CON ESTE ERROR

Hola.

Así a bote pronte veo que tienes una función que que no tiene Return y se supone que esta tiene que devolver un valor de tipo Integer. Por otra parte, dentro de la función intentas asignar el valor de la variable Total a la Función CONTAPORCOLORFC y eso no tiene sentido. Sin tener más información de lo que debe hacer la función es difícil concretar más.

Un saludo.

Sobre lo que comenta Santos:

- Las funciones en VB no tienen return, el valor a retornar se le asigna a una variable que se tiene que llamar igual que la función
- La función ColorFC() ¿Donde esta? ¿Cual es?


Saludos.
\\//_