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