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