VBA code that you can use to close all open workbooks at once in Excel.
VBA Code:
Sub CloseAllWorkbooks()
Dim wb As Workbook
' Loop through each open workbook
For Each wb In Application.Workbooks
' Close the workbook without saving changes
wb.Close SaveChanges:=False
Next wb
' Inform the user that all workbooks have been closed
MsgBox "All open workbooks have been closed!"
End Sub
Nazim Khan — Founder & Editor, TechGuruPlus.com
[MBA in Finance]
Nazim Khan has spent over ten years working with Excel, Tally and office documentation in accounts, finance and MIS roles. He has been running TechGuruPlus.com since 2016, where he publishes free editable templates for office work, and the YouTube channel Business Excel. He has trained more than 50,000 people online. Every template on this site is built and checked by him before it is published.