I don't think CountA works if there are blank cells in your column. I
either use the UsedRange property if I'm not concerned about the last cell
in a specific column/row, but, rather all columns/rows. For a specifice
column/row, I always rely on a loop that walks through the cells until it
finds the end. I'm sure, though, that there must be a better way and would
love to hear about it if anyone knows of one. Here's a sample of my
approach:

Function GetLastCellInColumn (ws as Excel.Worsheet, iCol as Integer) As
Integer
'
' Find last filled cell in column iCol on Worksheet ws
'
Dim LastCellInColumn as Integer

LastCellInColumn = ws.UsedRange.Rows.Count

Do while trim(ws.Cells(LastCellInColumn, iCol)) = "" and
LastCellInColumn 0
LastCellInColumn = LastCellInColumn - 1
Loop

GetLastCellInColumn = LastCellInColumn
End Function

"Blewyn" wrote in message
...

Number_of_rows = WorksheetFunction.CountA(Range("A1:A" & Rows.Count))

Cells(Number_of_rows,1).Activate

Cheers,

Blewyn

PS This advice given to me by Ron de Bruin in response to a smiliar
question a couple of days ago.


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