Sub Save_All_Workbooks() Dim myWorkbook As Workbook For Each myWorkbook In Workbooks myWorkbook.Save Next myWorkbook End Sub