Private Declare Function GetTickCount Lib "Kernel32" () As Long

Sub GetTickCountTEST()

    Range("D4").ClearContents
    
    'set start time
    lngStartTime = GetTickCount()
         
    'waste some time!
    i = 0
    Do Until i = 1000000
        A = B + C
        i = i + 1
    Loop
    
    'display time taken
    Range("D4").Value = (Str(GetTickCount() - lngStartTime)) / 1000

End Sub