Application.ScreenUpdating = False not working

[Admin]

Hi,

In each sub routine set the screen updating like

Dim lngSU               As Long
    
With Application
    lngSU = .ScreenUpdating
    .ScreenUpdating = False
End With

'Your code

Application.ScreenUpdating = lngSU