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