I know there are lots of threads relating to this topic, like don't use "Select" or "Activate" or set it to false if you need to use it. I set it to False every time I use "select" or "activate", but it still not working, please help!!
Another program for others runs through about 25 steps. Status Bar text can be updated with anything throughout the macro - plain text, calculated completion precentages, elapsed time, etc.
And after all don’t turn screen updating on/off many times in some loop. And one more note (which you probably don’t want to hear) if you want it quick use C .
It is typically 5 to 10 times quicker (don’t catch me here it depends on what you really do) than VBA.
It’s not as fast as it used to be and it can begin to get pretty frustrating waiting a long time for your code to finish. Color = vb Black Else ' else, color the cell light gray cell. If you think about it, if there were of the screen to process, it should run faster, right? Now it should make sense why it’s a good idea to turn off Public Sub Add Content To Sheet() Application. Color = vb Black Else ' else, color the cell light gray cell.
If this sounds like you, then Public Sub Add Content To Sheet() Dim start Time As Double start Time = Timer Dim r As Excel. Range("A1: P30") Dim i As Long Dim repeat As Long Dim cell As Excel. Try this out: shrink your Excel workbook window to a smaller size and run the code again. Screen Updating = False Dim start Time As Double start Time = Timer Dim r As Excel. Range("A1: P30") Dim i As Long Dim repeat As Long Dim cell As Excel. Use this code template as a starting point (the error handler ensures that these properties are turned back on at the end of the sub, even if it errors) Sub Your Sub() On Error Go To EH Application. Select Next i 'get results results = "Screen Updating not disabled: " & Format(Time - start Time, "hh:mm:ss") & " seconds" start Time = Time 'scenario 2 - screenupdating disabled Application.