Please follow the below steps to execute the VBA code to save the excel file. Step 2: Press Alt F11 – This will open the VBA Editor.This Workbook should be active at the end of the procedure, but it is not.While Excel will set this back to True whenever focus is passed back to Excel (your macro finishes) in most cases, it pays to play it safe and include the code at the end.You may even find in some cases that Screen Updating is set back to true before your recorded macro completes. This can mean that what should take a matter of 1 to 3 seconds, often takes a lot longer. Free Excel Help One drawback with recorded macros in Excel is that the code produced is often very inefficient.By setting Screen Updating to False at the Start of the macro, you will not only stop the constant screen flickering associated with recorded macro, but also greatly speed up the execution of the macro.
If we set Screen Updating property to TRUE then it turns on the screen updating else turn off the screen updating. In the above syntax Application represents object and Screen Updating is the Property of Application object.This can happen with recorded macros that have the word Select used frequently.If this does happen, you may need to repeat the line: Application.Thanks, Sub Test WIth Comments() 'Demonstrates Workbook. Screen Updating = False ' Windows 8.1 V 6.3.9600 Build 9600 ' Excel 2013 (15.0.4551.1510) MSO(15.0.4551.1508)32-bit 'Place this procedure in any workbook ' Create a workbook named Book2in the same path as the workbook with this code ' If "Application. I have run the first code block several times to verify the results are as described. Active Workbook.name" in the Immediate Window which returns "Book2.xlsm".Screen Updating = False" is commented out then _ This Workbook is active at the end of the procedure _ Else _ Book2is active at the end of the procedure Application. If I eliminate the commands involving Screen Updating from Test(), the workbook calling Test() is active when it completes, not Book2.Dim wbx As Workbook Dim wby As Workbook Dim Month As String Dim Entity Dim underscore Dim Hypname Dim Fullnme Dim Mnth Dim Year Dim Consolidation Dim Response As Integer Dim Snd Dim Flder Dim dte Dim rsp Dim ws As Worksheet Dim I As Integer Dim x As Long Dim r As Long Dim sh As Worksheet r = 1 Application. Screen Updating = False 'Change name of drop down to suit Worksheets("Data").