For Each Loop: Presentations In Application

Sub ForEachLoop_PresentaionsInApplication()
    For Each pres In Application.Presentations
        MsgBox pres.Name
    Next pres
End Sub