Worksheet function -
=COUNTA(A:A)=0

Code -
? application.WorksheetFunction.CountA(sheets("sheet 1").range("A:A"))

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------

"Henry Stock" wrote in message
...
If so, can some one show the code?

--
Henry Stock, Network Administrator
onProject.com
3 Wing Drive
Cedar Knolls, NJ 07927-1006