How do I add a visual aspect to my macro??

[b_rianv]

I would like to add some visual aspects to my lottery macro. Like numbers flipping through the range as they appear (and I can control how long they flip through the range) and maybe a little rand () function as the numbers are picked. How would I do this and where would I add these two aspects???
Can someone give me some help please?

Thank you,

Here is my code I am working with.

Const l&         'lower value
Const u& =       'upper value
Const n& =         'number of numbers per draw
rws = 100       'number of lottery draws
ReDim a(1 To rws, 1 To n)

Randomize
For i = 1 To rws
    ReDim b(l To u): k = 0: s = ""
    Do
        x = Int(Rnd * u) + l
 
End Sub

[xladept]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[b_rianv]

Sorry, I forgot to do that. But It is corrected now.

[lancer102rus]

try this
222.xlsm

[millz]

To add "visuals", it is actually creating some form delay. I use a separate function to create the delay, and make it generate lots of random numbers before displaying results.

Sub YourLottery()

    Const l& = 1 'lower value
    Const u& = 53 'upper value
    Const n& = 6 'number of numbers per draw
    Dim a(), b() As Boolean
    Dim rws&, i&, x&, k&, j&, j2&
    rws = 100 'number of lottery draws
    ReDim a(1 To rws, 1 To n)
    
    Randomize
    For i = 1 To rws
        Cells(i, 1).Value = "Draw " & i
        
        ReDim b(l To u): k = 0
        Do
            x = Int(Rnd * u) + l
            If Not b(x) Then k = k + 1: b(x) = True
        Loop Until k = n
        
        For j = 1 To 50
            For j2 = 1 To n
                Cells(i, 2 + j2).Value = Int(Rnd * u) + l
            Next
            Delay 0.01
        Next
        
        k = 0
        For x = l To u
            If b(x) Then k = k + 1: Cells(i, 2 + k).Value = x
        Next x
    Next i
End Sub



Private Function Delay(secs As Variant)
    On Error GoTo Err_Pause
    Dim PauseTime As Variant, start As Variant
    PauseTime = secs
    start = Timer
    Do While Timer < start + PauseTime
        DoEvents
    Loop
Exit_Pause:
    Exit Function
Err_Pause:
    MsgBox Err.Number & " - " & Err.Description, vbCritical, "Delay()"
    Resume Exit_Pause
End Function

[b_rianv]

Thanks guys I will test these two and let you know

[b_rianv]

I would like to thank both of you guys, the codes that you gave me work perfectly. Thanks again!