Application screenupdating not working vba 321sex live chat
Screen Updating = False ' Set the text str Text To Insert = "Annual bonus rates for the last five years" str Text To Find = "Discharge Pack" Data Obj. Show = -1 Then Set o Frm = New frm Progress If doc To Open. I have tried moving the code to another procedure and doing Screen Updating = False Call Routine Screen Updating = True This has not worked.I tried adding Doevents after the screenupdating statements and that has not worked either.
How will you remember what it is doing when you come back to this code later? Screen Updating = True Exit Sub Err_Exit: Msg Box Err. Number End Sub If you don't want to have the flicker as the documents are opened, open the documents invisibly. Paste And Format (wd List Combine With Existing List) ' The above inserts a line which creates a second page, so delete a line after Selection. Delete Unit:=wd Character, Count:=1 Active Document. Close Save Changes:=wd Save Changes Next Set doc To Open = Nothing: Set Doc = Nothing ' Switch Screen updates back on Application.When I have a final version of my code I always write up the detail, with comment, in a separate Word Document - just what I do for sensitive workbooks I will test the code as quickly as I can Thanks I have run the code and it successfully extracts the data for filters 1 and 2 but for filter 3 the results are corrupted in that it appears not to be looping through each sheet, that has content, 7 seven times also the extracts are incomplete.Whereas previously the flickering caused by seeing the sheets as the code was working through has gone now it flickers between a blank excel sheet and my screen-saver. There were only 4 de-bugs - surprisingly few considering you had nothing to validate with I do appreciate the difficulty of your trying to this 'in the dark' and I would understand if you feel this is too constrained.