Sub Test() Dim intCounter As Integer Dim Wnd As Window Dim s As String For intCounter = 1 To ActiveDocument.Windows.Count Set Wnd = ActiveDocument.Windows(intCounter) s = s & Wnd.Caption & vbCr Next intCounter MsgBox "The current document contains the following windows: " & vbCr & s Set Wnd = NothingEnd SubSub Test() Dim Wnd As Window Dim s As String For Each Wnd In ActiveDocument.Windows s = s & Wnd.Caption & vbCr Next Wnd MsgBox "The current document contains the following windows: " & vbCr & s Set Wnd = NothingEnd Sub