macro ile aralık içinde arama

[foradreamer]

merhaba internette bulduğum bir macroyu kendime göre uyarlamaya çalışıyorum. yapmak istediğim mesela belirttiğim aralıkta öğrenin=Arama(A2:A10;"emre") o aralıkta emre kaç defa geçiyor.

Function Arama(aralik As Range, aranan As String) As Variant
sayac = 0
Dim Finder

Set Finder = aralik.Find(aranan, SearchDirection:=xlPrevious)
If Finder Is Nothing Then
   Arama = "SONUC YOK"
Else
    
    Arama = sayac + 1
End If
End Function