Application ScreenUpdating Not working

[bigjdawg43]

Hi,

I have the below as the last portion of a larger macro:

Please Login or Register  to view this content.

There are a number of workbooks opened prior in the code and this snippet closes everything except ThisWorkbook. I've included Application.Screenupdating = False, but that doesn't seem to work. Does anyone have any idea why?

[dominicb]

Good evening bigjdawg43

Is that not what is supposed to happen?
The "For Each..." statement cycles through all workbooks open in Excel and asks "is this the currently active workbook?". If the answer is no, then that workbook is closed.
Application.Screenupdating=False just restricts what you see.
What should happen?

HTH

DominicB

[bigjdawg43]

Sorry, I just reread my original post and it is not clear at all

What I meant is that the Application.Screenupdating piece is not working, in that, I still get asked if I want to save each workbook even though Application.Screenupdating = False. I'm trying to bypass excel asking me if I want to save each workbook...

[dominicb]

Hi bigjdawg43

In this instance Application.Screenupdating won't do anything except stop any screen flicker, which you probably won't get because you're not selecting anything.
The command you're thinking of is Application.ShowAlerts=False - try using that.
Or you could use xWB.Saved=True before your close statement. This tells Excel that the file has been saved already - even if it hasn't. If Excel "thinks" that the file has already been saved, it won't bother asking.

HTH

DominicB

[bigjdawg43]

I get a run time error 438 ("Object doesn't support this property or method") when I try this. In the above loop, where would I try xWB.Saved = True?

[dominicb]

Hi bigjdawg43

Your module should look like this :

Please Login or Register  to view this content.

HTH

DominicB

[sktneer]

You just need to replace the line xWB.Close with xWB.Close True if you want to save any changes made in the workbook being closed.

[bigjdawg43]

Thank you both very much!

[sktneer]

You're welcome! Glad we could help.