Random text

This will randomly select 1 out of 11 items.

Please Login or Register  to view this content.

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.

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.

Please Login or Register  to view this content.

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")

Originally Posted by Andy Pope

Please Login or Register  to view this content.

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...

Please Login or Register  to view this content.

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

Please Login or Register  to view this content.

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