screen not updating cells

[tmd63]

I have a process button control that is supposed to clear a cell and format then change the status bar then open a remote sheet for copying.

    Application.ScreenUpdating = True    
    Worksheets("Main").Select
    Range("I12").Clear
    oldStatusBar = Application.DisplayStatusBar
    Application.DisplayStatusBar = True
    Application.StatusBar = "Please be patient... Copying Lookup"
    Application.ScreenUpdating = False
    
    Workbooks.Open ("http://*******.***.com/sites/***/***/Shared%20Documents/*******/Lookup.xls")

When I run the code from the debugger, step by step, it all works fine. But when I run it normally, the Range("I12").Clear does not work?
The status bar updates and the file is copied. It just does not clear the completed cell.

Can anyone tell me why and how do I get the cell to clear while it is running the long code (it takes 10-20 minutes to load, sort and copy the file as it is a large file).

 

[tmd63]

If I remove both Application.ScreenUpdating entries, then it does clear the cell but displays the opened workbook (this is not a desirable requirement as I do not want the user to see the table being loaded).