Fkt. i VB til at tælle antal gange et bogstav optræder i et range

Hej jeg prøver at lave en funktion i VB(Excel) som kan tælle hvor mange gange et bestemt bogstav optræder i et range.

Jeg forestiller mig noget i retning af:

Public Function TaelBogstaver(Ran As Range, bogstav As String) As Integer
Dim i As Integer

For Each celle In Range
    If celle.range = bogstav
        i = i + 1
    End If
Next

TaelBogstaver = i

End Function

Og så kan man kalde den fra worksheet'et sådan:

=TaelBogstaver(B7:CO7;"F")

På forhånd tak