See if this works
1 gives a number up to 20 (change to suit) and 2 a name from a list (edit the list)
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim chosenNum As Integer
Dim I As Integer
Dim k As Integer
Sub randomNumber()
Const maxRand = 20 ' change value to suit
Randomize
For k = 1 To 10
chosenNum = Int((maxRand - 1) * Rnd) + 1
With ActivePresentation.SlideShowWindow.View.Slide.Shapes(2).TextFrame.TextRange
.Text = chosenNum
End With
For I = 1 To 1
Sleep (50)
DoEvents
Next
Next
End Sub
Sub randomNumber2()
Dim strname As String
Dim maxRand
Dim rayNames() As String
' change comma sep list to suit
rayNames = Split("John, Fred, Bill, Tony, Mary", ",")
maxRand = UBound(rayNames)
Randomize
For k = 1 To 10
chosenNum = Int(maxRand) * Rnd
strname = rayNames(chosenNum)
Debug.Print strname
With ActivePresentation.SlideShowWindow.View.Slide.Shapes(2).TextFrame.TextRange
.Text = strname
End With
For I = 1 To 1
Sleep (50)
DoEvents
Next
Next
End Sub