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
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