Sub Test() Dim Wnd As Window For Each Wnd In ActiveDocument.Windows If Wnd.Active = 1 Then MsgBox Wnd.Caption & " is the active window." End If Next WndEnd Sub