Hi folks, To speed up my macro i am doing Application. Screen Updating inside the Sub() it shows FALSE though I am not sure what exactly is happening here, and how to ensure Application. Screen Updating = True But, i still see the output file and the flickering where the data is being written When i put a Msgbox Application.The screen flickers (presumably when opening each document)? Sub Insert Text() Dim Shp As Shape, Doc As Document, str Text To Insert As String, str Text To Find As String Dim i As Long, doc To Open As File Dialog, s Hght As Single Dim rng To Search As Word. Data Object On Error Go To Err_Exit 'str Text = Input Box("New Text", "Header Textbox Update", "New Text") ' Switch off the updates of screen Application. File Dialog(mso File Dialog File Picker) doc To Open.
File Dialog(mso File Dialog File Picker) If doc To Open. Screen Updating = FALSE at the begininnig and turn it back on at the end but it still making the screen show everything can anyone help. Open Filename:= _ "P: OFFICERisk OPTIONSOptions Control Function Risk Analysis emplate euribor risk module.xls" Windows("Euribor risk module.xls"). This is my code, however whenever the macro is run the screen still updates, is there anything that could be causing this? Range Dim o Frm As frm Progress Dim Portion Done As Double On Error Go To Err_Exit str Text To Insert = "Annual bonus rates for the last five years" str Text To Find = "Discharge Pack" Set doc To Open = Application. Sub Insert Text() Dim Doc As Document, str Text To Insert As String, str Text To Find As String Dim i As Long, doc To Open As File Dialog, s Hght As Single Dim rng To Search As Word. When my macro runs i get a message Word is updating the field codes in the document. Then place the names of travel expenses in say D5 and training expenses in F5.