Adding an additional parameter to a VBA existing code

[gregpaj]

I have used the following code and it works perfectly:

Function GetColorCount(CountRange As Range, CountColor As Range)
Dim CountColorValue As Integer
Dim TotalCount As Integer
CountColorValue = CountColor.Interior.ColorIndex
Set rCell = CountRange
For Each rCell In CountRange
If rCell.Interior.ColorIndex = CountColorValue Then
TotalCount = TotalCount + 1
End If
Next rCell
GetColorCount = TotalCount
End Function

But, now I want to do a little more. For the range of cells, I want to have 4 separate user defined functions.
1) Count cells IF they are a particular color, as well as the value inside ending in "*o"
2) Count cells IF they are a particular color, as well as the value inside ending in "*s"
3) Count cells IF they are a particular color, as well as the value in the cell having 2 text characters in the cell, "??"
4) Count cells IF they are a particular color, as well as the value in the cell being a number greater than zero, ">0".
How can I modify the base "GetColorCount" code to incorporate this additional parameter for each instance?

 

[Fluff]

Cross posted https://www.excelforum.com/excel-pr...itional-parameter-to-a-vba-existing-code.html

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.