Count Occurrences of Letter w/in Cell?

[roos01]

or try this one:

Function HowMuch(rng As Object, strText As String)
'http://www.excel-center.com/mailing/016298h.htm
    Dim rngAct As Range
    Dim var As Variant
    Dim intCounter As Integer
    Application.Volatile
    For Each rngAct In rng.Cells
        var = rngAct.Value
        intCounter = intCounter + Len(var) - Len(Application.Substitute(var, strText, ""))
    Next rngAct
    HowMuch = intCounter / Len(strText)
End Function

to use like:

=HowMuch(A1,"w") or =HowMuch(A1:A10,"w")