View only selected workbooks

[ThomasOES]

I have several workbooks open. I want to view just two horizontally. How to do this?
I tried

set stdwbk = Workbooks("C S O N H Standards.xlsx")
set answbk = ThisWorkbook
set curwbk = Application.Union(stdwbk,answbk)
curwbk.Arrange -4128, 1

No luck

Thanks
Tom

 

[Max1616]

Are you just trying to view these two workbooks next to one another? Perhaps try this?

Set stdwbk = Workbooks("C S O N H Standards.xlsx")
Set answbk = ThisWorkbook

Windows.CompareSideBySideWith stdwbk
Windows.Arrange ArrangeStyle:=xlVertical

 

[ThomasOES]

Thanks Max
I found that if all other workbooks are minimized, then I can easily compare horizontally the workbooks I choose.

Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = "C S O N H Standards.xlsx" _
Or wb.Name = ThisWorkbook.Name _
Then
wb.Activate
ActiveWindow.WindowState = xlMaximized
Else: _
wb.Activate
ActiveWindow.WindowState = xlMinimized
End If
Next
Windows.Arrange ArrangeStyle:=xlHorizontal