vba for one cell to reduce 1 each time for 200 times

[DavidRoger]

Hi,

I have a cell that I would like to reduce one (-1) each times for 200 times.

I got the sleep solved. But no so sure how I get the -1.

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
    
Sub checkfunction()

(code for -1 each time for 200 times)

End Sub

How to write it?

 

[mole999]

Dim n
n = 200 to 1 step -1
next n

 

[DavidRoger]

Currently have this code but high in cpu usage. What is better way to recode this?

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems

Sub checkfunction()

Dim n
For n = 1 To 6 'go from 1 to 6 by 1 each time, would be easier this way instead of what I describe above to test the code

Range("A1") = "" ' reset the cell
 
    Range("A1").Value2 = Range("A1").Value2 + n
    Sleep 1000

Next n

End Sub