Count number of non-blank cells in a range

Wow that shortens the code!

Sub NonBlanks()
Dim RngToSrch As Range, cl As Range, RngCnt As Long
Set RngToSrch = Sheets(1).Range("C5").CurrentRegion
RngCnt = 0
Debug.Print WorksheetFunction.CountA(RngToSrch)
End Sub

Nice one Colin!