This is from the macro recorder.

With ActiveWindow
.Width = 274.5
.Height = 352.5
End With
ActiveWindow.NewWindow
With ActiveWindow
.Top = 118.75
.Left = 1.75
End With
Sheets("Sheet2").Select
ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlHorizontal

First I resized the active window  with the mouse.
Then I opened a new window. Window/New Window
Next I resized that one.
Finally I set the windows  to horizontal tiling.

This seems to work:

Place the following code  in the "ThisWorkbook" module:

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
MyName = ThisWorkbook.Name
Win1 = MyName & ":1"
Win2 = MyName & ":2"
If Wn.Caption = Win1 Then
Wn.WindowState = xlMaximized
Windows(Win2).Close
End If
End Sub

Then place the following code in a standard module e.g. "Module1":

Sub Button1_Click()
ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=xlHorizontal
MyName = ThisWorkbook.Name
Win1 = MyName & ":1"
Win2 = MyName & ":2"
Windows(Win2).Activate
Sheets("Sheet2").Select
End Sub

Next, place a button  on Sheet1 and have the button call the above
macro.

Let me know if this is what you are loking for.

Absolutely what I was looking for - it works
perfectly. Thank you so very much, I can't tell you
how much I appreciate it.