Brad,

Change
If Cells.Font.Size = Whatfont Then
to
If Rng.Font.Size = Whatfont Then


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Brad" wrote in message
...
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