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