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!