You can use this code at the end of the macro

For Each w In Workbooks
If w.Name < ThisWorkbook.Name Then
w.Close savechanges:=True
End If
Next w

I hope this helps.
Regards

bodhisatvaofboogie ha escrito:

Windows("Book1").Close savechanges:=False
Windows("Book2").Activate
Cells.Select
Selection.Cut
Windows("Book2").ActivateNext
Range("A1").Select
ActiveSheet.Paste
Windows("Book2").Close savechanges:=False

This is the formula I am using to close my extra workbooks. Is there a way
I can do this without the specific ("Book2") or ("Book1")??? Because that
makes it so the only way this macro will run is by closing down excel and
restarting it. I wanted to do the same thing without naming specific
workbooks. SO, the macro opens a total of three workbooks:

"Original Name of File being opened"
"Workbook1"
"Workbook2"

So how do I jumb between workbooks and activate them without naming them
specifically then ultimately close them. THANKS!!!!