Window.Next (Word)

Returns the next document window in the collection of open document windows.

If Windows.Count > 1 Then ActiveDocument.ActiveWindow.Next.Activate