When open move active cell

  • Thread starter Thread starter JDH
  • Start date Start date
J

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.
 
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
 
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
 
Back
Top