Use something like this choosing a suitable column :-


Code
-------------------

lastrow = ActiveSheet.Range("A65536").End(xlUp).Row
For rw = 1 To lastrow
'-etc
Next

-------------------


--
Message posted from http://www.ExcelForum.com