For Each Loop: Documents in Application

Sub ForEachLoop_DocumentsInApplication()
    For Each doc In Application.Documents
        MsgBox doc.Name
    Next doc
End Sub