You can use this macro:
Sub Close_All_Open_Workbooks()
Dim I

For I = 1 To Application.Workbooks.Count
Application.Workbooks(I).Close
Next

End Sub


On Jun 25, 8:49*am, Scott Hutslar <Scott
wrote:
Is there a way to close all workbooks without exiting excel? *I have found
where you can exit excel and it will close all workbooks. *I have a scenario
where it is desirable to close all open workbooks and keep excel running. *

Anyone know of a way of doing this without closing each workbook individually?