For Each Loop: Workbooks in Application

Sub ForEachLoop_WorkbooksInApplication()
    For Each wb In Application.Workbooks
        MsgBox wb.Name
    Next wb
End Sub