Find the last item and select it

[austenr]

Here is a Function that you can use to find the last populated row:

[VBA] Function xlLastRow(Optional WorksheetName As String) As Long

' find the last populated row in a worksheet

If WorksheetName = vbNullString Then WorksheetName = ActiveSheet.Name
With Worksheets(WorksheetName)
On Error Resume Next
xlLastRow = .Cells.Find("*", .Cells(1), xlFormulas, _
xlWhole, xlByRows, xlPrevious).Row
If Err <> 0 Then xlLastRow = 0
End With

End Function [/VBA]

This is a user defined function found in our KB. Don't think you can use the rergular "Find" to do it. HTH