Use:
If Rng.Font.Size = Whatfont Then

in stead of

If Cells.Font.Size = Whatfont Then

--
Gary''s Student


"Brad" wrote:

I'm trying to count the number of times a cell has a font size of 22, and it
is giving me zero. I'm new to this stuff would appreciate any help.

Function countbyfont(InRange As Range, _
Whatfont As Integer, _
Optional ofText As Boolean = False) As Long
Dim Rng As Range
Application.Volatile (True)

For Each Rng In InRange.Cells
If Cells.Font.Size = Whatfont Then
countbyfont = countbyfont + 1
End If
Next Rng

End Function