Application.screenupdating fail

HI
I have a workbook which has a code with the following structure:

Private Sub Workbook_Open()
Subname1
End sub

The structure of each sub is 

Sub subname1()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False	
Code that open and close several files to copy and paste data from that files into the workbook
    Application.DisplayAlerts = true
    Application.ScreenUpdating = true
End Sub

Even using the application screenupdating I can see how the subname1 goes and open go to the sheets and close files to copy and paste.

Any idea why this is happening?. I used in the past the property to copy and paste data from one sheet to another and worked fine, so I am not sure why this time is not working, the difference this time is that I am using external data from other workbooks

Best regards

DaveExcel
I sused that one but still the same, I still see how the applciation just flash from one screen to another.

Dominicb, What does sendkey means?
I am just using very simple code to open and close workbooks with activate select copy and pasting commands in between

Cheers

Originally Posted by mmf

DaveExcel
I am just using very simple code to open and close workbooks with activate select copy and pasting commands in between

Activate & Select are causing your problems here. As far as I know using either of them will switch screenupdating back to true, (as both Activate, and 'Select' are visual functions, so therefore HAVE to update the screen).

You need to recode your copy & paste routines to not use the select or activate functions.

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