ScreenUpdating doesn't update screen in Excel 2013

Question

I've code that takes 30+ mins to run. I have set screen updating to false while most of the code runs but every now and again I turn it to true and straight back to false.

In 2003, 2007 and 2010 this allows the screen to temporarily update. In 2013 it doesn't work.

How can I make Excel 2013 temporarily update the screen mid-macro?

Sub Test()
    Application.ScreenUpdating = False
    ' Do loads of stuff here
    Application.ScreenUpdating = True ' Enable to refresh screen
    Application.ScreenUpdating = False ' Disable again
    ' Do more stuff here
    Application.ScreenUpdating = True
End Sub

Here is a question which might help with your query by the way. http://stackoverflow.com/questions/3863641/doevents-doesnt-do-the-events-why — yu_ominae, Aug 07 '14 at 06:30

score 2 · Answer 1 · edited Mar 18 '15 at 17:08

2

DoEvents worked for me. I don't know what causes this but inserting DoEvents in the Loop Method seems to correct the issue for me when I use it.

Sub LoopMethod
    Foreach i in Identity
        Call Loopthis 
    Next For
EndSub

Sub Loopthis 
    DoEvents
    select.Cells(i, 6)
EndSub

edited Mar 18 '15 at 17:08

Drew Gaynor

8,292
5
40
53

answered Mar 18 '15 at 15:52

Sean Miller

3
5

Edgar E · Answer 2 · 2018-05-25T14:14:30.667

1

I do place this code right before every event/screen I want to update and works fine for me:

Application.ScreenUpdating = True
DoEvents

Sheets("Main").Select   'Screen to update

Also I put the code inside every loop I use to write someting in the Sheet.

edited May 25 '18 at 14:14

answered May 25 '18 at 13:58

Edgar E

11
2

score 0 · Answer 3 · edited Feb 03 '17 at 01:58

Activating another worksheet and then again activating the required worksheet worked for me - I had a code where the screen updating failed, I activated another worksheet and then again the one I was working on, it updated the current screen.

application.ScreenUpdating = False

''''''code'''''''

Thisworkbook.worksheets(any otherworksheet in workbook).activate
Thisworkbook.worksheets(current worksheet).activate

application.ScreenUpdating = True

score 0 · Answer 4 · answered Jan 03 '19 at 21:54

As far as I have found the issue can be solved by jumping to another cell. You could do something like this:

Dim Ac as object
Set Ac = ActiveCell
Ac.Offset(0,IIf(Ac.Column = Application.Columns.Count, -1, 1)).Activate
Ac.Activate

As to the how or why of this behaviour I don't know (yet). As far as I have found now, it has something to do with the active cell before deactivating screen update, being the same as after reactivating screen update. But I haven

ScreenUpdating doesn't update screen in Excel 2013

4 Answers4