For i = 1 To Range(Range("A1"), Selection.End(xlDown)).Count
MsgBox Cells(i, 1)
Next
- 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