Sub Test() MsgBox "There are: " & ActiveDocument.Windows.Count & _ " windows in the Windows collection."End Sub