VBA Code for Random Selection

Dear Experts, This is overly simple but I am an old self taught user! I have a list of names that I use to generate a random selection with the RAND function. The selected person display changes w...

Macros and VBA

HansVogelaar

Jun 04, 2025

See the attached demo (I hope that the forum won't delete it). It uses random numbers in the hidden column B.

The code that the button executes is

Sub Button1_Click()
    Dim i As Long
    Dim j As Long
    ' Count down from 100 to 0
    For i = 100 To 0 Step -1
        ' Display the counter
        Range("D4").Value = i
        ' Sort the data on the hidden column B
        Range("A1").CurrentRegion.Sort Key1:=Range("B1"), Header:=xlYes
        ' Loop to slow down execution
        For j = 1 To 3000 ' Experiment to find the best value
            DoEvents
        Next j
    Next i
End Sub

You'll have to allow macros when you open the workbook.

CountDown.xlsm19 KB

Sub Button1_Click() Dim i As Long Dim j As Long ' Count down from 100 to 0 For i = 100 To 0 Step -1 ' Display the counter Range("D4").Value = i ' Sort the data on the hidden column B Range("A1").CurrentRegion.Sort Key1:=Range("B1"), Header:=xlYes ' Loop to slow down execution For j = 1 To 3000 ' Experiment to find the best value DoEvents Next j Next i End Sub

Forum Discussion

VBA Code for Random Selection

Resources