Microsoft is conducting an online survey to understand your opinion of the Msdn Web site.If you choose to participate, the online survey will be presented to you when you leave the Msdn Web site. 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.
Frequently you can "unroll" the circular references so that iterative calculation is no longer needed.The first time the example hides the columns, screen updating is turned on; the second time, screen updating is turned off. Hidden = True End If Next c stop Time = Time elapsed Time(i) = (stop Time - start Time) * 24 * 60 * 60 Next i Application.When you run this example, you can compare the respective running times, which are displayed in the message box. Screen Updating = True For i = 1 To 2 If i = 2 Then Application. You won't be able to see what the macro is doing, but it will run faster.Remember to set the Screen Updating property back to True when your macro ends.