![]() |
#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. |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
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 |
![]() |
BoringDavid | Word VBA | 5 | 05-09-2014 09:08 AM |
![]() |
ravl13 | Word | 3 | 11-21-2013 12:31 PM |
Need Help Getting Started, Please. Thanks | ChunkyZergling | Outlook | 1 | 04-24-2009 07:38 AM |