For Loop: Presentations In Application

Sub ForLoop_PresentaionsInApplication()
    Dim i As Integer
    For i = 1 To Application.Presentations.Count
        MsgBox Application.Presentations(i).Name 'Index is 1 based
    Next i
End Sub