Count Property
Returns the number of objects in the specified collection.
Read-only Integer for the following objects: Adjustments, CanvasShapes, DiagramNodeChildren, DiagramNodes, GroupShapes, ShapeNodes, and Shapes.
Read-only Long for the following objects: ActionSettings, AddIns, AnimationPoints, Animations10, Borders, CellRange, ColorScheme, ColorSchemes, Columns, Comments, Designs, DocumentWindows, ExtraColors, Fonts, Hyperlinks, NamedSlideShow, NamedSlideShows, ObjectVerbs, Panes, Placeholders, Presentations, PrintRanges, PublishObjects, Rows, RulerLevels, ShapeRange, SlideRange, Slides, SlideShowWindows, TabStops, Tags, TextRange, TextStyleLevels, TextStyles, TimeNodes, and Triggers.
Example
This example closes all windows except the active window.
With Application.Windows
For i = 2 To .Count
.Item(2).Close
Next
End With