Sub Test() Dim Wnd As Window Set Wnd = ActiveDocument.Windows(ActiveDocument.Windows.Count) Wnd.ActivateEnd Sub