Scrolling the Timescale on project open

This tool solves the annoyance of longer projects of having to scroll the timescale every time you open a project file. What it does:
1. If the project is in the future, scroll to the project’s start date.
2. If the project is in the past, scroll to the project’s finish date
3. Otherwise scroll to today’s date
The Code
The code lives in the Project_Open event and consists of:

Private Sub Project_Open(ByVal pj As Project)
    If Date < pj.ProjectSummaryTask.Start Then
        EditGoTo Date:=pj.ProjectSummaryTask.Start
    ElseIf Date > pj.ProjectSummaryTask.Finish Then
        EditGoTo Date:=pj.ProjectSummaryTask.Finish
    Else
        EditGoTo Date:=Date
    End If
  End Sub

To create the Project_Open event:
1. In Project (any version), press Alt+F11 to open the Visual Basic Editor (VBE).
2. Press Ctrl+R to make sure the Project Explorer is open (pane on left of VBE window).
3. Double-click the ProjectGlobal (Global.Mpt) folder to expand it
4. Double-click the ThisProject (Global.Mpt) file to open it.
5. Copy the above code into this file

As the code is in your Global.Mpt file, it works when you open any project.
To test, open any project and check the date on the timescale to confirm Project has scrolled it as required.