Screen Updating = True End Sub Activating another worksheet and then again activating the required worksheet worked for me - I had a code where the screen updating failed, I activated another worksheet and then again the one I was working on, it updated the current screen. Screen Updating = False ''''''code''''''' Thisworkbook.worksheets(any otherworksheet in workbook).activate Thisworkbook.worksheets(current worksheet).activate application.So I'm creating a library of commonly used macros for excel for my Excel 2011 for Mac. 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.
Paste Special Paste:=xl Paste Values, _ Operation:=xl None, Skip Blanks:=False, Transpose:=False Application. While running, one of the subs unhides and activates the final worksheet, then deletes the starting worksheet - and toggles screen updating back on ("True"), and exits back to the main sub (which calls another sub again). But it doesn't change view, the view stays on the deleted sheet while the subs all finish. (I can "trick" it into changing view to the newly active worksheet by inserting a "Msg Box" - but don't want to do that.) This has been a hard one for me to search out answers (because looking up "Screenupdating" and anything else brings up a myriad of answers regarding "how to stop the screen from updating"). Display Alerts = True End Sub Private Sub ADSform Gen() Application. Sub create ADS() Dim one Form As Object Set Main Wrk Bk = Active Workbook cancel = False 'initialise Call ADSheader Form Show Set Main Wrk Bk = Active Workbook 're-Set Main Wrk Bk after doing "Save As" in previous form Call ADSform Gen Main Wrk Bk. Activate 'Doesn't change view 'Msg Box "Enter antenna information from RFDS" '^^^ Tricks it into refreshing worksheet when active Call ADSinput Form Show Call ADSset Antennas Call ADSpull Data Go To Exit Handler Exit Handler: For Each one Form In User Forms Unload one Form This Workbook. Screen Updating = False 'Returned to True after running sub Main Wrk Bk.