VBA Compile error when using #IF Win64 then Public Declare Sub Sleep Lib "kernel32"

Question

This has been bugging me for a while now and I have been unable to resolve this compile error.  I am running Windows 10 Enterprise 64bit.  My version of Office is Microsoft 365 Apps for Enterprise.  The issue is when I try to use the conditional directive to declare the sleep sub.  I am getting the compile error below.  I have tried using VBA7 and Win64 separately as well together as below with the same result.  I created a blank module and placed only code below to duplicate the error.

For now I am commenting out the 32 bit line, but would like to find a way to resolve this.  I appreciate any insights into this.

Answer 1

Have you consulted Philipp Steifel's YouTube presentation and blog articles on this subject?

Answer 2

Use this instead:

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

Answer 3

Thanks for the quick response, but I get the same result compile error.  I have tried IF VBA7, IF Win64 & If VBA7.  I thought my image of the error was uploaded.  I'll update my original post with the source & error.

Answer 4

What happens if you simply ignore the error with the version I posted?

Answer 5

I created a blank DB and new module with the code below.  Even though I get the compile error when I paste or edit the directives, it will run the sub TestSleep without issue.  The only thing I see is the 32bit line is colored in red.  I don't have a 32 bit version to test with currently, but I suspect it will work as well.

Option Compare Database

Option Explicit

#If VBA7 Then

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

#Else

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

#End If

Sub TestSleep()

    Debug.Print "Before Sleep"

    Sleep 100

    Debug.Print "After Sleep"

End Sub

I'll watch the video you linked shortly.