What do you want in the bottom pane? Or are you asking how to scroll the date in the Gantt to the current date on open?
If you want the Gantt chart to show the current date on open see:
http://www.projectvbabook.com/VBA-Sa...aleScroll.html
If you just want today's date you can simplify the code to:
Private Sub Project_Open(ByVal pj As Project)
EditGoTo Date:=Date
End Sub
I hope this helps.
Julie