VBA ajastin

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub a()
'koodia
'...
'tauko 2 s
Sleep (2000)
'koodia
'...
End Sub

Laitoin ton koodin pätkän mut kone herjaa et pitää vaihtaa käyttämään 64-bittistä...
Ymmärsinkö oikein; kopioin tämän:
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long

sinne ekalle riville ja ton sleep(2000), laitan siihen väliin johon sen haluan?

kiitti!!

Osaatko vielä sanoa et mistä johtuu ettei se hyväksy tota koodinpätkää?
Tosiaan herjaa jotai 64-bitti jutskaa

toi on 32 bit ja 64 tarvii oman. Mulla ei oo 64 bit , joten en voi tarkistaa toimiiko, mutta tommosta ehdottaa...

Public Declare PtrSafe Sub Sleep Lib "kernel32" ( ByVal dwMilliseconds As LongLong)

Joo tota kaavaa ei herjannu.
Vielä jos viittit tarkemmin vääntää että kuinka sen upotan tonne kaavojen sekaan sen ajastimen.
Tässä esim. yks rivi
If (Range("a1").Value = "OK" And Range("h2").Value = "error") Or (Range("a1").Value = "OK" And Range("c2").Value = 0) Then Range("a1").ClearContents

Eli haluaisin että heti ehtojen täytyttyä odottaa kaks sekuntia ennenku tyhjentää ton a1:sen.
Jollain tapaa sain sen toimimaa mut exceli meni todella hitaaks, varmaankin odotti kokoajan sen kaks sekkaa...

Then
Sleep(2012)
Range("a1").ClearContents
endif

just noin