Sub Test() MsgBox "The current window is: " & ActiveDocument.ActiveWindow.Caption MsgBox "The previous window is: " & ActiveDocument.ActiveWindow.Previous.CaptionEnd Sub