closing all open workbooks without saving and then open an another workbook

Question

I'am looking for the VBA-code for closing all open workbooks without saving and then open an another workbook.

Nows anybody the correct VBA-code?

I have now the follow code:

Private Sub Workbook_Open()
Dim WB As Workbook

For Each WB In Workbooks
    If Not (WB Is ActiveWorkbook) Then WB.Close
Next

End Sub

This one i haven't tried jet. I try to make a macro dat starts every day one the same time and closed all workbooks. Then opens workbooks and update the data.

just slight amendment to your code for it to NOT save changes: WB.Close savechanges:=False — Raugmor

Freek v. wely Freek v. wely · Accepted Answer · 2015-02-28T17:12:56

2

votes

I have adjust WB.Close savechanges:=False to the VBA-code and its works perfect.

Thanks

closing all open workbooks without saving and then open an another workbook

2 Answers