What's wrong with this

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

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" <[email protected]> wrote in message
news:[email protected]...
> 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
>

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
>

Thank you that worked - are there other items that I should change to make
this a better function?

"Chip Pearson" wrote:

> 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" <[email protected]> wrote in message
> news:[email protected]...
> > 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
> >
>
>
>

That looks fine (now).



Brad wrote:
>
> Thank you that worked - are there other items that I should change to make
> this a better function?
>
> "Chip Pearson" wrote:
>
> > 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" <[email protected]> wrote in message
> > news:[email protected]...
> > > 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
> > >
> >
> >
> >

--

Dave Peterson