Hi Sherley and others,

Try this for a change:

With ActiveSheet
.Cells(.UsedRange.Rows.Count + 1, 1).Select
End With

Good Luck

Wouter HM

shirley wrote in message ...
Hi to all again,

i think i got the code. i made some changes to accomodate my program
and solve the out of subscript problem.

Dim mysheet As Worksheet
Set mysheet = ActiveSheet
mysheet.Row.Cells(ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row,
1).Next.Activate


However, this code brings me to the last record. How do i change the
code to bring me to the empty row jus under the last row it found?


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