Try this

Sub mycount()
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.CountA(myRange)
MsgBox answer
End Sub

--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"Arnold Klapheck" wrote in
message ...
I know this is simple but finding it seems to elude me. There must be an
Excel function that will return the count of cells in a column that
contain
any value. they will be filled from the top down with no blanks.