When open move active cell

[JDH]

Hey,
I have a workbook that has multiple users. When others are done editing they
close the workbook without moving off the last cell that contains data. How
can I make the workbook when opened move the active cell to the next empty
cell in column A and make it active in a worksheet.

 

[Dave Peterson]

You could use a macro.

This goes in a General module.

Option Explicit
Sub Auto_Open()

Dim NextCell As Range
With ThisWorkbook.Worksheets("sheet1")
Set NextCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
End With

Application.Goto reference:=NextCell, Scroll:=True

End Sub

 

[Sandy Mann]

Copy tis Macro to the Worksheet module of ThisWorbook:

Private Sub Workbook_Open()
Set LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
LastCell.Select
End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings

(e-mail address removed)
Replace @mailinator.com with @tiscali.co.uk

 

[JDH]

Thank you,

This works great, now all worksheets in workbook have the same action.

JDH