Worksheets("Result").Range("A1").Select

For i = 1 To Range(Selection, Selection.End(xlDown)).Count
MsgBox Cells(i, 1)
Next

this should work

or Simply

Worksheets("Result").Select

Range("A1").Select
For i = 1 To Range(Selection, 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