This procedure will determine how long Alex naps for.

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)

Public Sub SleepSec(NumSec As Long, Optional AllowEvents As Boolean = True)
    Dim X As Integer
    For X = 1 To NumSec
        Sleep 1000
        DoEvents
    Next
End Sub

Usage:

Put the above in a global module, then anywhere in your database you can say something like this to sleep for 5 seconds:

SleepSec(5)

The purpose of the loop is to make SleepSec responsive. If you sleep for 10 seconds without any DoEvents, then your code might appear to freeze. If this interferes with performance or function for you, just set it to FALSE.

Note:

If you are still running machines using 32-bit Office, then use this for your declaration in the global module:

#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)
#End If

This will compile the database according to the version of Office on your PC.

Video:

This code is explained in my Sleep TechHelp video.