Macro to change active window

[judasdac]

Hi All,
I'm trying to enter this very simple macro that is supposed to switch from one active window to another. However, I'm getting an error, which I can't quite figure out. Here is the code:

Sub ChangeWin()
On Error GoTo ChangeWinErr
Set nw = ActiveWindow.ActivateNext
If Windows.Count > 1 Then nw.Activate
Exit Sub
End If ChangeWinErr:
Windows(1).Activate
End Sub

Any ideas? Thanks in advance for the help!