The file Count Large.xlsm has quantities sold for $1000$ products for each of

$60$ months, for a total of $60,000$ values. The following code courts the number

of these that are greater than $100.$ Check how long it takes to do this by inserting

Timer functions appropriately in the code and displaying the clapsed time in a

message box.

Sub CountLarge$0$

Dim cell As Range, nLarge As Long

For Each cell In Range$("$Sales$")$

If cell.Value $>100$ Then nLarge $=$ nLarge $+1$

Next

MsgBox nLarge & $"$ cells in the Sales range have a quantity larger than $100.",$

vbinformation

End Sub