Using a ThisWorkbook.Name or ActiveWorkbook.Name with View side-by-side VBA script

[rdoulaghsingh]

I am trying to call the workbook name with a " - 1" at the end for a VBA script to run side by side windows. Based on Microsoft documentation, "You cannot use the CompareSideBySideWith method with the Application object or the ActiveWorkbook property." Any suggestions on a similar method to make this work? Any help would be greatly appreciated. Thanks!

Sub CompareSideBySide(  )
 
    ActiveWindow.NewWindow
    Windows.CompareSideBySideWith _
        ("""" & ActiveWorkbook.name & " - 1""")
    Windows.Arrange ArrangeStyle:=xlVertical
    ActiveWindow.SmallScroll Down:=-4

End Sub

 

[johnnyL]

See if this helps --> CompareSideBySide

Or --> This

 

[rdoulaghsingh]

See if this helps --> CompareSideBySide

Or --> This

Thanks for the reply @johnnyL. I had found and tested these before and they didn't seem to work either. Receiving different errors for both.