Sub SplitTwoWindows()
Application.WindowState = xlMaximized
With Windows(1)
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth / 2
End With
With Windows(2)
.WindowState = xlNormal
.Top = 1
.Left = Application.UsableWidth / 2
.Height = Application.UsableHeight
.Width = Application.UsableWidth / 2
End With
End Sub