Windows Wildcard Activate

Hi All, I have an issue with the Windows.Activate property.
I have a macro that vertically splits the view into two windows for the user, and the problem is the specific workbook reference in the syntax.
Here is what I have so far:

Sub SplitView()
' vertically splits view
Dim wb1 As Workbook
Set wb1 = ThisWorkbook

If ActiveWindow.WindowState <> xlMaximized Then
  Exit Sub
End If
 ActiveWindow.NewWindow
 Application.Windows.Arrange ArrangeStyle:=xlVertical, ActiveWorkbook:=True
 Windows("Workbook1.xlsm:2").Activate
 ThisWorkbook.Worksheets("Sheet1").Range("A15").Select
 ActiveWindow.FreezePanes = True
 Windows("Workbook1.xlsm:1").Activate
 ActiveWindow.SmallScroll ToRight:=16

The name of this workbook will change and therfore throw up a reference error, so I was wondering if someone could point me in the right direction. I can't quite figure out how to reference wb1 in the Windows.Activate property.

Thanks!

If you open them in a specific order them reference the Index property.

Workbooks(1).Activate

Thanks pj, thats a good suggestion, but the end user will already have at least one other workbook open before the macro is ran, so the Index number would be variable.

Thanks

Update:
Haven't come across a solution so far, so in the meantime I've added a bit of code to exit the sub if the workbook name is changed:

Sub SplitView()
' vertically splits view
Dim wb1 As Workbook
Set wb1 = ThisWorkbook

If ActiveWindow.WindowState <> xlMaximized Then ' exits if window is not maximized
  Exit Sub
End If

If Not wb1.Name Like "Workbook1.xlsm" Then ' exits if book is renamed
Exit Sub
End If

 ActiveWindow.NewWindow
 Application.Windows.Arrange ArrangeStyle:=xlVertical, ActiveWorkbook:=True ' vertical view
 Windows("Workbook1:2").Activate ' activates window 2
 ThisWorkbook.Worksheets("Sheet1").Range("A15").Select
 ActiveWindow.FreezePanes = True ' freezes header
 ActiveWindow.Zoom = 87 ' resets view for split window
 Windows("Workbook1:1").Activate ' activates window 1
 ActiveWindow.Zoom = 87 ' resets view for split window
 ActiveWindow.SmallScroll ToRight:=16 ' scrolls right so second report is in view

End Sub

Hopefully a solution is possible, but if not, this way there won't be any errors.

Bumping along.

Update: Ended up finding a solution by using the windows index number. This also solves the problem of having multiple workbooks open, as it will exit the sub if that condition exists

Sub SplitView()
' vertically splits view, set to not work if more than one window is open to include other workbooks

If Windows.count > 1 Then ' exits if windows are more than one (includes open workbooks)
  Exit Sub
End If

 ActiveWindow.NewWindow
 Application.Windows.Arrange ArrangeStyle:=xlVertical, ActiveWorkbook:=True ' vertical view
 Windows(1).Activate ' activates window 2
 ThisWorkbook.Worksheets("Sheet1").Range("A15").Select
 ActiveWindow.FreezePanes = True ' freezes header
 ActiveWindow.Zoom = 87 ' resets view for split window
 Windows(2).Activate ' activates window 1
 ActiveWindow.Zoom = 87 ' resets view for split window
 ActiveWindow.SmallScroll ToRight:=16 ' scrolls right so second report is in view
 
End Sub

Marking this as solved.
Thanks