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