Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub Pawz(Seconds As Double)
   Dim EndDateTime As Date
   EndDateTime = DateAdd("s", Seconds, Now)
   While Now < EndDateTime
   DoEvents
      Sleep 18
   Wend
End Sub