Random text

This will randomly select 1 out of 11 items.

msgbox application.WorksheetFunction.Choose(application.WorksheetFunction.RandBetween(1,11),"P1","P2","P3","P4","P5","P6","P7","P8","P9","P10","P11")

replace the Msgbox with the range reference of where the result should be stored.
Also replace the Player1 to Player11 with the correct position name.

Originally Posted by Andy Pope

msgbox application.WorksheetFunction.Choose(application.WorksheetFunction.RandBetween(1,11),"P1","P2","P3","P4","P5","P6","P7","P8","P9","P10","P11")

VB has its own Choose function which works the same as the Excel worksheet CHOOSE function (for the most part), so you can remove what I highlighted in red and this code line will work the same

I would note, however, since no variables are involved, you could just do this...

MsgBox [Choose(RandBetween(1,11),"P1","P2","P3","P4","P5","P6","P7","P8","P9","P10","P11")]

Or, use the INDEX function (which I think might be a more efficient function) instead of the CHOOSE function like this...

MsgBox [INDEX({"P1","P2","P3","P4","P5","P6","P7","P8","P9","P10","P11"},RandBetween(1,11))]

You have posted in the VBA forum and mention pushing a button. So the solution is a piece of VBA syntax to update a cell.
You would need to place the code in the routine assigned to the button and change msgbox to be the cell reference.

Sub MyButton_Click()
   Range("Q17") = application.WorksheetFunction.Choose(application.WorksheetFunction.RandBetween(1,11),"P1","P2","P3","P4","P5","P6","P7","P8","P9","P10","P11")
End Sub

You could remove the Application.Worksheet references and place the 2 formula in a cell, but the value will change every time the RandBetween formula is triggered.

A1: =Choose(RandBetween(1,11),"P1","P2","P3","P4","P5","P6","P7","P8","P9","P10","P11")

You would replace the RANDBETWEEN with the index value of the item you want. This applies to the CHOOSE and INDEX functions