¿Números o fórmulas en rango?

Yo lo he hecho con:
Function cuenta(rango As Range)
Dim celda As Range
For Each celda In rango
If celda.HasFormula Then cuenta = cuenta + 1
La siguiente línea (quitando la anterior) contaría las constantes. _
If Not celda.HasFormula And celda > "" Then cuenta = cuenta + 1
Next celda
End Function

No se si habrá algun caso en que no se cumpla.

Saludos desde Tenerife (Islas Canarias).
************************************************
"Antonio" escribió en el mensaje
news:

Hola Amigos, quisiera saber si hay una fórmula para contar si en un rango
determinado los números que aparecen son números o el resultado de una
fómula. No he encontrado nada así que agradezco cualquier sugerencia.

Un saludo

Muchas gracias por tu solución es muy buena

"AnSanVal" wrote:

Yo lo he hecho con:
Function cuenta(rango As Range)
Dim celda As Range
For Each celda In rango
If celda.HasFormula Then cuenta = cuenta + 1
La siguiente línea (quitando la anterior) contaría las constantes. _
If Not celda.HasFormula And celda > "" Then cuenta = cuenta + 1
Next celda
End Function

No se si habrá algun caso en que no se cumpla.

Saludos desde Tenerife (Islas Canarias).
************************************************
"Antonio" escribió en el mensaje
news:
> Hola Amigos, quisiera saber si hay una fórmula para contar si en un rango
> determinado los números que aparecen son números o el resultado de una
> fómula. No he encontrado nada así que agradezco cualquier sugerencia.
>
> Un saludo