Hi Efi,

"Sheet2.Cells.SpecialCells(xlLastCell).Row"
This will give you the last row irrespective of column. As you asked,
you need to find out last row of a particular column that filled with
data. Try following but, some function should be there to minimize the
code.

Dim i As Integer

i=1

While ActiveSheet.Rows.Cells(i, 1).Value < "" '## here 1
represents column "A" ##'
i = i + 1
Wend
MsgBox i - 1

Nilopher.



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/