Range("A1").Select
NosOfItems = Range(Selection, Selection.End(xlDown)).Count
NosOfItems gives the required number
- Manges
--
mangesh_yada
-----------------------------------------------------------------------
mangesh_yadav's Profile:
http://www.excelforum.com/member.php...fo&userid=1047
View this thread:
http://www.excelforum.com/showthread.php?threadid=27586