Progressively increase wait time.

[bbran19]

I have a NAMES DRAW from a HAT worksheet. Names as selected from a list using RND. These names tick over in a cell. I had hoped to progressively increase the speed of the draw to the final winner - like a ham wheel.

I am using a WAIT macros

Application.Wait (Now + 0.000006)

This is used in the SHUFFLING Macro

Sub ShuffleNames()
'
' ShuffleNames Macro
'
For I = 1 To 30
    Total = Total + 1
    Range("I3").Select
    With Selection.Interior
        Wait6
        CopyFormula
    End With
    
    Next I
        
End Sub

My thinking is that the WAIT time would decrease from 0.05 of a second to the final draw in 1 second.

It is not working. Is the Wait Time Macro incorrect or the Shuffling Macro incorrect?

At the moment the names simply go really fast then dead slow.

Any help appreciated.

Cheers

Bob