How to determine if activeworkbook showing in arranged format

[Roderick_E]

I want to use a sheet button to allow the user to split screen between 2 worksheets in same workbook.
I need to know how VBA knows if the workbook is in arranged format. Thanks

Sub splitit()
    ActiveWindow.NewWindow
    ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlVertical
[COLOR=#ff0000][B]If ActiveWorkbook.Windows.Arrange = True Then [/B][/COLOR]'this line isn't correct
    ActiveWindow.Close
    ActiveWindow.WindowState = xlMaximized
    End If
End Sub

 

[Roderick_E]

My own solution:

Sub splitit()
If ActiveWorkbook.Windows.Count > 1 Then
    ActiveWindow.Close
    ActiveWindow.WindowState = xlMaximized
    Else
    ActiveWindow.NewWindow
    ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlVertical
    End If
End Sub

 

[Rick Rothstein]

You would use ActiveWindow.Panes.Count which will evaluate to 1 if the screen is not split, 2 if only one split (either horizontally or vertically) or 4 if there is both a horizontal and vertical split.