The following function will examine a range of Excel cells and return the number that fall within a specified range:
Function Count_Selected_Cells(Data_Range As Range, Min As Double, Max As Double) As Integer
Dim Cell
Count_Selected_Cells = 0#
For Each Cell In Data_Range
If ((Cell.Value >= Min) And (Cell.Value <= Max)) Then
Count_Selected_Cells = Count_Selected_Cells + 1
End If
Next Cell
End Function
It can be used as:
=Count_Selected_Cells(B5:F14,12,50)
Will return the number of cells having values between 12 and 50 in the range B5:F14:
To download the .XLSM file from the article, click here
