How to get pointer in new cell on Open?

I want to have the pointer in the next new cell each time I open the
workbook. is there a way to do this?
Thanks

Hi Jazz

You can do this for example in the workbook open event (user must enabled macro's)
to insert the date in a cell every time you open it on a new line in "Sheet2"

Private Sub Workbook_Open()
Dim lr As Long
With Sheets("sheet2")
lr = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Cells(lr, "A").Value = Date
.Cells(lr, "B").Value = Environ$("username")
End With
End Sub

See also
http://www.cpearson.com/excel/events.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jazz Drummer" wrote in message ...
I want to have the pointer in the next new cell each time I open the
workbook. is there a way to do this?
Thanks

Ron,
Thanks for the info!

"Ron de Bruin" wrote:

Hi Jazz

You can do this for example in the workbook open event (user must enabled macro's)
to insert the date in a cell every time you open it on a new line in "Sheet2"

Private Sub Workbook_Open()
Dim lr As Long
With Sheets("sheet2")
lr = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Cells(lr, "A").Value = Date
.Cells(lr, "B").Value = Environ$("username")
End With
End Sub

See also
http://www.cpearson.com/excel/events.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jazz Drummer" wrote in message ...
I want to have the pointer in the next new cell each time I open the
workbook. is there a way to do this?
Thanks