Private Sub Workbook_Open()
Application.EnableEvents = False
With ActiveWorkbook
Set wnd = ActiveWindow
With wnd
.WindowState = xlNormal
.Top = 0
.Left = 0
.Width = Application.Width / 2
Sheets(1).Select
.NewWindow
With ActiveWindow
.Top = 0
.Left = wnd.Left + wnd.Width
.Width = Application.Width / 2
Sheets(3).Select
End With
End With
End With
Application.EnableEvents = True
End Sub