Shirley,

Just add 1

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

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"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/