Adding pauses to a macro

[Sweedler]

Hello

Sub New_country_Click()

Dim i As String
Dim w As Long
Dim v As Long

Range("P5").Formula = "=XLOOKUP(1,I:I,B:B,"""",0)"
w = 50000

Application.CalculateFullRebuild
For v = 1 To w
Next v
Application.CalculateFullRebuild
For v = 1 To w
Next v
Application.CalculateFullRebuild
For v = 1 To w
Next v
Application.CalculateFullRebuild
For v = 1 To w
Next v
Application.CalculateFullRebuild

i = Range("P5")
Range("P5") = i

End Sub


I am currently using the following. Each time "CALCULATEFULLREBUILD" is the "xlookup" formula present a name in cell P5. I want this process to cycle 5-10 times, but I need there to be a pause so that the name in P5 can be registered. I basically want it to look like it is cycling through a selection of names before it settles with the final one. That is when the value is copied in so that it does not change anymore.

Please help

 

[jkpieterse]

Have a look at Application.Wait

 

[Sweedler]

Have a look at Application.Wait

Hello

I tried that application, but as I was unable to make the "time delay" shorter than 1 second it was not good enough. I need it to cycle quicker.

 

[Joe4]

Hello

I tried that application, but as I was unable to make the "time delay" shorter than 1 second it was not good enough. I need it to cycle quicker.

You can do it for less than 1 second.
See here for various ways on how to do that: code for time of less than 1 second please

 

[Sweedler]

Thank you all for your input:

Here is how I solved my issue in the end.
Sub New_country_Click()

Dim i As String
Dim f As Integer

For f = 3500 To 1 Step -1
Range("P5").Formula = "=XLOOKUP(1,I:I,B:B,"""",0)"
Next f

i = Range("P5")
Range("P5") = i

End Sub

The Italic loop in the middle does what I wanted it to do. In cell P5 I am showing the value from column B, that in column I has the value 1. Column I gets its values from a series of random number generators. So what this Macro now does is cycle through some names that is quickly shows in cell P5 before settling for the 1 country.