Counting Cells by Color then by Text

So I'm trying to get a count on all cells that are a specifc color and then have specific text in them. Like all cells highlighted green and have the word fiber in it. I have a vba code for counting colors, but I don't know how to tie that into counting the specific text. Any help??

This was the code I had for counting colored cells:

Function CountColor(rColor As Range, rSumRange As Range)
''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com
'Counts cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = vResult + 1
End If
Next rCell
CountColor = vResult
End Function

Thanks!

Nope unless I'm doing something wrong.. I switched that in the code, and selected the exact cell I wanted to be counted for rColor, but I just get zero now.

Oh no ha. But I just did and I'm stilling getting zero. Is there anything else I needed to change?

The editted does not count just the color either. But I'll attach a sample. I want where it says "Total Coax Billing Sites" to tell me how many customer names are green and say "1 Coax". And "Total Fiber Billing Sites" to tell me how many are green and say either "existing fiber hub" or "new fiber hub".

That's completely fine, it works great! Thanks!