Sub Test() Dim Wnd As Window Set Wnd = ActiveDocument.Windows(1) MsgBox "The current window is: " & Wnd.Caption Set Wnd = Wnd.Next MsgBox "The next window is: " & Wnd.Caption Set Wnd = NothingEnd Sub