Private Sub WindowspropertyExample()
Dim myDoc As Document
Dim nowins As Integer
nowins = Application.Windows.Count
MsgBox "No. of windows = " & nowins
End Sub