Attribute VB_Name = "testwindowope3"
Sub ƒeƒXƒg()
    
    Windows("VBAsample").Activate
    ActiveWindow.NewWindow
    
    Windows.Arrange _
        ArrangeStyle:=xlArrangeStyleVertical, _
        ActiveWorkbook:=True, _
        SyncVertical:=True

End Sub