To close all open workbooks, use the Close method of the Workbooks collection object.
Sub closeDemo() Workbooks.Close End Sub