Attribute VB_Name = "testwindowope1"
Sub ƒeƒXƒg()
    
    Dim window1 As Window
    
    Set window1 = ActiveWindow
    window1.NewWindow
    
    Windows.Arrange _
        ArrangeStyle:=xlArrangeStyleVertical, _
        ActiveWorkbook:=True

End Sub