Screenupdating false

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.

screenupdating false-15

I have changed it slightly so it loops 10,000 times and I execute it 10 times for sample size.

Disabled Enabled 0.61909653 2.105066913 0.619555829 2.106865363 0.620805767 2.106866315 0.625528325 2.102403315 0.625319976 2.0991179 0.621287448 2.105103142 0.621540236 2.101392665 0.624537531 2.106866716 0.620401789 2.109004449 There is one important thing to know about screen updating which I didn’t see in any previous answer.

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.

Screen Updating = False 'swap between sheets 1/2 (need both sheets or this will crash) For i = 1 To numb Switches Sheets(1 (i Mod 2)). Screen Updating = True 'get results for part two results = results & vb Cr Lf & "Screen Updating IS disabled: " & Format(Time - start Time, "hh:mm:ss") & " seconds" 'show results Msg Box results End Sub Firstly I've been using the script written by Richie (UK) Post #7 Here It simply iterates through a loop changing the value of i in one cell.

I need to wait for 15-20 seconds until excel pulls the external web data.... Or is there any way if I could temporarily stop external web data connection Without closing file? In that case, I update the status bar message every time the code starts on the next sheet.

I also momentarily turn screen updating on and then off again to show each sheet as it processes.He is president of Sharon Parq Associates, a computer and publishing services company. Check out Hi, I am unable to work on excel while it pulls the external web data ( refresh every 1 minute ).... Tell the user what's going on and provide an indication of progress, ideally every three to ten seconds.My requirement is to work on another worksheet of the same workbook... I've written several macro programs that take a while to execute. For example, one program I alone use takes about 40 seconds to execute across 12 similar sheets. Status Bar = "Please be patient..." Dim Rating As Variant, sht As Worksheet, Last Record Row As Long, i As Integer, Last Row As Long Rating = Input Box("Please Provide Weather Rating (Any Number Between 1 and 4)", "Input Needed") If Rating 4 Then Msg Box "Invalid Value, Please Enter A Valid Number! Range("$I

I also momentarily turn screen updating on and then off again to show each sheet as it processes.He is president of Sharon Parq Associates, a computer and publishing services company. Check out Hi, I am unable to work on excel while it pulls the external web data ( refresh every 1 minute ).... Tell the user what's going on and provide an indication of progress, ideally every three to ten seconds.My requirement is to work on another worksheet of the same workbook... I've written several macro programs that take a while to execute. For example, one program I alone use takes about 40 seconds to execute across 12 similar sheets. Status Bar = "Please be patient..." Dim Rating As Variant, sht As Worksheet, Last Record Row As Long, i As Integer, Last Row As Long Rating = Input Box("Please Provide Weather Rating (Any Number Between 1 and 4)", "Input Needed") If Rating 4 Then Msg Box "Invalid Value, Please Enter A Valid Number! Range("$I$1") _ , False, False, False, False, , False PVTotal = Application. Sum(Range("B2", "B" & Last Record Row)) Imp Total = Application. Much better than staring at an unchanging screen for 40 seconds (that would be like watching the microwave for 40 seconds -- it takes forever).

||

I also momentarily turn screen updating on and then off again to show each sheet as it processes.

He is president of Sharon Parq Associates, a computer and publishing services company. Check out Hi, I am unable to work on excel while it pulls the external web data ( refresh every 1 minute ).... Tell the user what's going on and provide an indication of progress, ideally every three to ten seconds.

My requirement is to work on another worksheet of the same workbook... I've written several macro programs that take a while to execute. For example, one program I alone use takes about 40 seconds to execute across 12 similar sheets.

Status Bar = "Please be patient..." Dim Rating As Variant, sht As Worksheet, Last Record Row As Long, i As Integer, Last Row As Long Rating = Input Box("Please Provide Weather Rating (Any Number Between 1 and 4)", "Input Needed") If Rating 4 Then Msg Box "Invalid Value, Please Enter A Valid Number!

Range("$I$1") _ , False, False, False, False, , False PVTotal = Application. Sum(Range("B2", "B" & Last Record Row)) Imp Total = Application.

Much better than staring at an unchanging screen for 40 seconds (that would be like watching the microwave for 40 seconds -- it takes forever).

") _ , False, False, False, False, , False PVTotal = Application. Sum(Range("B2", "B" & Last Record Row)) Imp Total = Application. Much better than staring at an unchanging screen for 40 seconds (that would be like watching the microwave for 40 seconds -- it takes forever).