ScreenUpdating = False does not work in Excel 2013 and 2016

Question

Long-term, high-performance Excel-based applications developed by me years ago and working fine in Excel 2007 and 2010 look like an amateur hour in Excel 2013 and 2016 because Application.ScreenUpdating = False no longer works reliably. The screen defrosts, apparently when VBA code copies a pre-formatted sheet from a macro workbook to a new workbook, although other circumstances should also cause it. I have seen threads on this topic that recommend "messing with code" or "calling code in a routine." Unfortunately, I have to support hundreds of Excel applications with thousands of lines of code and hundreds of users who are about to upgrade to Office 2016, so rewriting is not an option. How can I restore excel elegance?

Answer 1

Here is a technique that helps reduce flicker and saves the StatusBar message.

Application.Cursor = xlWait
Application.ScreenUpdating = False
. . .
Set wkbNewBook = Workbooks.Add
ThisWorkbook.Windows(1).Visible = False
. . .
ThisWorkbook.Windows(1).Visible = True
wkbNewBook.Activate
Application.ScreenUpdating = True
Application.Cursor = xlDefault

Answer 2

I wanted to leave a comment, but I am not allowed to do this. Without sample code, it is very important to understand your problem (see https://stackoverflow.com/help/how-to-ask and edit your question correctly.

Here are some ideas: - Check to see if your code calls the code in another procedure, perhaps the Application.ScreenUpdating application is included outside the procedure. - Try this at the beginning of your procedure:

Application.Calculation = xlCalculationManual

Then at the end of the code, install it:

Application.Calculation = xlCalculationAutomatic

This can help; however, without a code example, it’s very difficult to help you properly.

Answer 3

, , SDI vs MDI. - .

Application.Visible=False
enter code here
Application.Visible=True

, , excel , .

, , .

, , , .

Application.Workbooks("yourworkbooktohide").Windows(1).Visible = False

= true.

, script Excel 2010, "" 2013 .