Loop Random selection of names

[Steve_nyc92]

Hi

I have this code below where it picks a random name from a list (3, 285) and puts it in cell E22 (22, 5). I would like to update it so it loops when I hit the button so it shows 4-5 names before stopping on the 5th name. Is there a way to do this? Thanks in advance

Sub Oval1_Click()

    Dim rw As Long
    rw = [RandBetween(3,285)]
    Cells(22, 5) = Cells(rw, 25)

End Sub

 

[Fluff]

Duplicate to: Visually scroll through random names

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).