6 lines
196 B
Text
6 lines
196 B
Text
|
Function Sleep(iSecsWait As Integer)
|
||
|
|
Debug.Print Now(), "Sleeping..."
|
||
|
|
Application.Wait Now + iSecsWait / 86400 'Time is stored as fractions of 24 hour day
|
||
|
|
Debug.Print Now(), "Awake!"
|
||
|
|
End Function
|