Get to a new row to add new data
Works
Thanks very much
"Gary Keramidas" wrote:
this would pronanly be better
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
Worksheets(CurSheet).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
|