Deactivate Split Window

[Pierce Quality]

Hi All,

I have a workbook with multiple worksheets, with one worksheet that has two macros assigned to buttons on that one sheet. The macros are designed to vertically split the window, then to reset the view to normal.
The macro attached to the first button is:

Sub SplitView()
' vertically splits view
ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=xlVertical

End Sub

The macro attached to the second button is:

Sub ResetView()
' Resets view after split
    ActiveWindow.Close
    ActiveWindow.WindowState = xlMaximized
    ActiveWindow.Zoom = 95
End Sub

Both macros work fine as long as that one sheet is active. The problem is, when I switch to a different sheet in that workbook, or a different sheet in a different workbook, without resetting the view first, the split view remains and I get multiple vertical windows.
When I tried this code in the worksheet object:

Private Sub Worksheet_Deactivate()
Application.EnableEvents = False
ActiveWindow.Close
 ActiveWindow.WindowState = xlMaximized
Application.EnableEvents = True
End Sub

The view will reset but I keep getting a prompt to save changes to the workbook when I switch to a different sheet.
Any guidance as to what I am doing wrong would be greatly appreciated, thanks!

[Pierce Quality]

Bumping along.

[Pierce Quality]

I've done some updates to the buttons to improve the format and rule out some variables. Button 1:

Sub SplitView()
' vertically splits view
If ActiveWindow.WindowState <> xlMaximized Then
  Exit Sub
End If
 ActiveWindow.NewWindow
 Application.Windows.Arrange ArrangeStyle:=xlVertical
 Windows("Name of Workbook.xlsm:2").Activate
 ThisWorkbook.Worksheets("Sheet1").Range("A15").Select
 ActiveWindow.FreezePanes = True
 Windows("Name of Workbook.xlsm:1").Activate
 ActiveWindow.SmallScroll ToRight:=16

Button 2:

Sub ResetView()
' Resets view after split
 If ActiveWindow.WindowState = xlMaximized Then
 Exit Sub
 End If
    ActiveWindow.Close
    ActiveWindow.WindowState = xlMaximized
    ActiveWindow.Zoom = 95
    ActiveWindow.SmallScroll ToRight:=-16
    ThisWorkbook.Worksheets("Sheet1").Range("A15").Select
    ActiveWindow.FreezePanes = True
End Sub

I still havent found a good way to deactivate the view on the worksheet deactrivate event, and still have the problem that if an open workbook exists, the first macro will pull whatever the active sheet is in to the split view, making 3 or more windows instead of two however.
Also, does anyone know of a good way to activate either window 1 or 2 without using the specific name of the workbook, but just referencing this workbook? I'm attempting to rule out any changes to the workbook name.

Thanks!

[Pierce Quality]

Bumping along.

[StephenR]

What happens if you comment out the

ActiveWindow.Close

line in your initial Deactivate code? This should restrict to active workbook only, though have only had a quick look at your problem.

Windows.Arrange ArrangeStyle:=xlVertical, ActiveWorkbook:=True

[Pierce Quality]

Hello Steven, thanks for the reply.
Looks like I get a run time error when I do that, but after I uncommented again, it seems like the window is now deactivating when switching between different sheets in the same book, which solves the first problem. I must have been doing something wrong lol.
Any ideas on how to fix the other open work book problem though?

[StephenR]

Try the edit to my post above.

[Pierce Quality]

Try the edit to my post above.

Thanks Steven, that appears to have done the trick! Marking this as solved, thanks!
Final Code:

Sub SplitView()
' vertically splits view
If ActiveWindow.WindowState <> xlMaximized Then
  Exit Sub
End If
 ActiveWindow.NewWindow
 Application.Windows.Arrange ArrangeStyle:=xlVertical, ActiveWorkbook:=True
 Windows("Name of Workbook.xlsm:2").Activate
 ThisWorkbook.Worksheets("Sheet1").Range("A15").Select
 ActiveWindow.FreezePanes = True
 Windows("Name of Workbook.xlsm:1").Activate
 ActiveWindow.SmallScroll ToRight:=16
End Sub

[StephenR]

Glad it worked.