Counting cells with a specific range

This function is taken from C Pearsons site and it counts the number of cells
within
a range. Can someone explain the asterixxed lines below
Thanks

#CountByColor = CountByColor - _
# (Rng.Font.ColorIndex = WhatColorIndex)
#Else
# CountByColor = CountByColor - _
# (Rng.Interior.ColorIndex = WhatColorIndex)



Function CountByColor(InRange As Range, _
WhatColorIndex As Integer, _
Optional OfText As Boolean = False) As Long
'
' This function return the number of cells in InRange with
' a background color, or if OfText is True a font color,
' equal to WhatColorIndex.
'
Dim Rng As Range
Application.Volatile True

For Each Rng In InRange.Cells
If OfText = True Then
CountByColor = CountByColor - _
(Rng.Font.ColorIndex = WhatColorIndex)
Else
CountByColor = CountByColor - _
(Rng.Interior.ColorIndex = WhatColorIndex)
End If
Next Rng

End Function

It is simply working out whether it counts the cells that meet the required
colour, or whether to count the cells whose text meets the colour.

The function has an optional parameter OfText that you can set to True to
count the cell text colour.

--
HTH

Bob Phillips

"teresa" <[email protected]> wrote in message
news:[email protected]...
> This function is taken from C Pearsons site and it counts the number of
cells
> within
> a range. Can someone explain the asterixxed lines below
> Thanks
>
> #CountByColor = CountByColor - _
> # (Rng.Font.ColorIndex = WhatColorIndex)
> #Else
> # CountByColor = CountByColor - _
> # (Rng.Interior.ColorIndex = WhatColorIndex)
>
>
>
> Function CountByColor(InRange As Range, _
> WhatColorIndex As Integer, _
> Optional OfText As Boolean = False) As Long
> '
> ' This function return the number of cells in InRange with
> ' a background color, or if OfText is True a font color,
> ' equal to WhatColorIndex.
> '
> Dim Rng As Range
> Application.Volatile True
>
> For Each Rng In InRange.Cells
> If OfText = True Then
> CountByColor = CountByColor - _
> (Rng.Font.ColorIndex = WhatColorIndex)
> Else
> CountByColor = CountByColor - _
> (Rng.Interior.ColorIndex = WhatColorIndex)
> End If
> Next Rng
>
> End Function
>
>