![]() |
|
#5
|
|||
|
|||
|
Quote:
Code:
Private Sub HaveABreak(iSeconds As Integer)
'
' Macro pauses running of procedure for given number of seconds
' Astrid Zeeland
' https://wordmvp.com/FAQs/MacrosVBA/ShowAllClippitAnimations.htm
'
Dim lPauseTime As Long
Dim lStart As Long
lPauseTime = iSeconds
lStart = Timer 'get current time
Do While Timer < lStart + lPauseTime
DoEvents
Loop
End Sub
You would call it with HaveABreak (i) where i is the number of seconds you need to wait. Try it with 1. Insert the following into the AutoExec macro before the Show command: HaveABreak(1) Last edited by Charles Kenyon; 01-28-2023 at 10:11 AM. |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Getting started...
|
Annby | Project | 3 | 11-06-2014 03:38 PM |
| VBA Code in a UserForm module to delete a Command Button which opens the userform | Simoninparis | Word VBA | 2 | 09-21-2014 03:50 AM |
Is it possible to take an input from a UserForm in one document to a UserForm in a do
|
BoringDavid | Word VBA | 5 | 05-09-2014 09:08 AM |
Page footers have started
|
ravl13 | Word | 3 | 11-21-2013 12:31 PM |
| Need Help Getting Started, Please. Thanks | ChunkyZergling | Outlook | 1 | 04-24-2009 07:38 AM |