Encontrar datos en una seleccion!!

[yeye]

Como encuentro datos en una seleccion?
5 6 4 2 5
Necesito saber cuantos 5 hay en la anterior seleccion,
tengo un ciclo así

For each cell in Selection
if cell=5 then
encontrado=encontrado+1
end if
next

De que otra forma puedo hacerlo,
GRacias

 

[Juan Pablo González]

Dim Rng as Range
Set Rng = Range("A1:A5")
Total5 = Application.CountIf(Rng,5)

 

[yeye]

Gracia Juan Pablo,
porque no aparece esta propiedad(.CountIf()) cuando uno escribe :
application.

GRacias

 

[Juan Pablo González]

Es que en realidad aparece cuando uno hace

Application.Worksheetfunction.Countif

porque COUNTIF (CONTAR.SI) es una función de Excel. Solo que por facilidad (Y costumbre) lo pongo directamente como

Application.Countif