Thank you Dave.perfectly worked.

Dave Peterson wrote:
Dim myList as string
Dim LastRow as string

With worksheets("Sheet2")
lastrow = .range("H3").end(xldown).row
mylist = .range("H3:H" & lastrow).address(external:=true)
end with

I'd leave the workbook name, worksheet name, and address in that string. It
won't ever hurt and without it, you may have trouble.

this code is giving active sheet list.
LastRow = Range("H3").End(xlDown).Row
[quoted text clipped - 5 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200905/1


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200905/1