Pause a Macro

[JeffR]

Is there a way to pause a looping macro, such as 1 second at the bottom of
each loop?

 

[Gary Keramidas]

you can try this:

Application.Wait (Now + TimeValue("0:00:01"))

 

[JLGWhiz]

Put this function at the top of your code module.

Public Function OneSecDly()
s = Timer + 1
Do While Timer < s
DoEvents
Loop
End Function

Then to execute the delay, simply type "OneSecDelay" (without the quote
marks) on a line where you want the delay to occur.

 

[JLGWhiz]

Correct the typo.

Then to execute the delay, simply type "OneSecDly" (without the quote
marks) on a line where you want the delay to occur.

 

[JeffR]

Thanks!

you can try this:

Application.Wait (Now + TimeValue("0:00:01"))

 

[JeffR]

Thanks!

Correct the typo.

Then to execute the delay, simply type "OneSecDly" (without the quote
marks) on a line where you want the delay to occur.

 

[\Ji Zhou [MSFT]\]

Hello Everyone,

Thanks for the input from all of you! And Jeff, if you have any future
questions or concerns on the same issue, please feel free to update this
thread. I will try my best to follow up.

Have a great day!

Best regards,
Ji Zhou ([email protected], remove ¡®online.¡¯)
Microsoft Online Community Support

Delighting our customers is our #1 priority. We welcome your comments and
suggestions about how we can improve the support we provide to you. Please
feel free to let my manager know what you think of the level of service
provided. You can send feedback directly to my manager at:
(e-mail address removed).

==================================================
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/en-us/subscriptions/aa948868.aspx#notifications.

Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 1 business day is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by contacting
Microsoft Customer Support Services (CSS) at
http://support.microsoft.com/select/default.aspx?target=assistance&ln=en-us.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.