SubTestCountIf()Range("D10")=Application.WorksheetFunction.CountIf(Range("D2:D9"),">5")EndSub The procedure above only counts the cells in Range(D2:D9) if they have a value of5or greater. Note that, because you are using a greater than sign, the criteria greater than5needs to be...