Pls explain the below macro in stages

[Vincent paul]

Function countonlynos(countrange As Range)
Dim tempcount As Double
For Each cell In countrange
If IsNumeric(cell.Value) = True And IsEmpty(cell.Value) = False Then
tempcount = tempcount + 1
End If
Next
countonlynos = tempcount
End Function

 

[Andrew Poulsom]

Welcome to MrExcel.

What don't you understand? It checks whether each cell in the Range countrange is a number and not blank. If it passes the test a counter (tempcount) is incremented by 1. Finally the total count is returned to the calling procedure by assigning tempcount to the function's name.

 

[Vincent paul]

Thanks for the reply.