Application.screenupdating fail

Sometimes this construct works where App.ScreenUpdating fails.

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Sub SomeSub()

    On Error GoTo Err_SomeSub
    
    LockWindowUpdate GetDesktopWindow
    
    'your code

    LockWindowUpdate 0
    
Exit Sub
Err_SomeSub:
    LockWindowUpdate 0
    
End Sub

thnaks for the suggestion, I did what you wrote, and works for one of the sub, however for another ones I still having the blinks,
best regards