maybe something like this and assign it to a button on each sheet. this will
take youi to the bottom of column A

Option Explicit
Sub goto_last()
Dim lastrow As Long
Dim CurSheet As String

CurSheet = ActiveSheet.Name
lastrow = Worksheets(CurSheet).Cells(Rows.Count, "A").End(xlUp).Row

Range("A" & lastrow + 1).Select

End Sub

--


Gary


"Grd" wrote in message
...
Hi,

I have a list. I'd like to have a button that you click on that finds the
next available new row so I can start typing new data.

I want this to work on several sheets that each have lists so I can use
this
button on sheet 1, 2, or 3 it doesn't matter it will go to the end of the
list. There is only one list per sheet.

I can't figure out how to do it. Any help would be greatly appreciated.

Thanks in Advance
Janet