For Loop: Workbooks in Application
Sub ForLoop_WoorkbooksInApplication() Dim i as Integer For i = 1 To Application.Workbooks.Count MsgBox Application.Workbooks(i).Name 'Index is 1 based Next i End Sub
Sub ForLoop_WoorkbooksInApplication() Dim i as Integer For i = 1 To Application.Workbooks.Count MsgBox Application.Workbooks(i).Name 'Index is 1 based Next i End Sub