MS Excel

Skúste:

Parameter je String "HH:MM:SS"
Sub Pauza(T As String) ' "00:00:01"
Application.Wait (Now + TimeValue(T))
End Sub

Sub pokus()
Call Pauza("00:00:05")
MsgBox ("Po pauze")
End Sub

alebo:
Na začiatok Modulu : (jeden riadok bude označený červeným, podľa x86/x64 verzie Office - to je OK, ale 2007 tuším x64 ani nebola)
#If Win64 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongLong)
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Sub pokus()
Sleep (5000)
MsgBox ("Po pauze")
End Subcitovat

Tiež som rozmýšľal načo to asi je. Napadá ma napr. že odošle niekam niečo mimo Excel, a čaká nejakú dobu na spracovanie, netuším...
Neviem či ide upravovať zošit počas Application.Wait alebo Sleep, píšem z tabletu, nemám ako overiť.citovat