Application.Windows (PowerPoint)

Returns a DocumentWindows collection that represents all open document windows.

Dim dwsWindows As DocumentWindows
Set dwsWindows = Windows