Auto GoTo

[jade423]

Upon closing any excel workbook in a specific folder, I want it to GoTo Sheet1 A1 prior to saving, so that when the next person opens up any given .xls they will be on the first page. Is that a possibility?

 

[VoG]

Right click the Excel logo just to the left of File on the menu bar, select View Code and paste in

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Goto reference:=Sheets("Sheet1").Range("A1"), scroll:=True
End Sub

 

[Magriza]

Yes, this is possible using the Workbook BeforeClose event. However, in order for this to work the workbook would have to be saved (and the user may not want to save changes).

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Activate
Range("A1").Select
ThisWorkbook.Save
End Sub

That's about the simplest form - you may want to have a message box to confirm that the user wants to save?

 

[jade423]

That worked great. One problem is that if someone opens up the .xls and does not change anything, but travels to another page, it doesnt save the file, so therefore it doesnt save the GoTo jump... Any ideas?

 

[Magriza]

If a user opens a file but doesn't save then the next person who opens it will see the tab that was active when the file was last saved. So it doesn't matter if they go to a different tab if they don't save.

You could force Excel to go to Sheet1 A1 on every save, though the end users may find this a little disruptive!

I would suggest having Sheet1 activated when the workbook is opened - that way you get what you want without any downside.

 

[VoG]

Try doing this when the workbook is opened

Private Sub Workbook_Open()
Application.Goto reference:=Sheets("Sheet1").Range("A1"), scroll:=True
End Sub

 

[jade423]

Thanks, thats great!