Macro to change active window

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!

Hello judasdac,

You have a few syntax errors in the code. This is what it should look like...

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