Subtracting based on shape color

Hello all,

Function CountShapes(rngSearch As Range) As Long
Dim sh As Shape

For Each sh In rngSearch.Parent.Shapes
   If Not Intersect(rngSearch, Range(sh.TopLeftCell, sh.BottomRightCell)) Is Nothing Then
      CountShapes = CountShapes + 1
   End If
Next sh
End Function

Above is the code I have, and it works nicely. I'm trying to figure out though how to make it subtract 1 from the count based on color of the shape.

Wanted to add that code is in thanks to Fluff13

Regards
G