For Loop: Documents in Application

Sub ForLoop_DocumentsInApplication()
    Dim i as Integer
    For i = 1 To Application.Documents.Count
        MsgBox Application.Documents(i).Name 'Index is 1 based
    Next i
End Sub