Pick random value from string array

Question

How do I make the following code input either "Jack" or "John" randomly in cell A1? Currently, the result is always "2":

Sub RandomNames ()

Dim UserNames(1 To 2) As String

UserNames(1) = "Jack"
UserNames(2) = "John"

Range("A1").Value = Application.WorksheetFunction.RandBetween(LBound(UserNames), UBound(UserNames))

End Sub

With your code now, without the typo, I get 1 and 2 pretty evenly. — Scott Craner
– Scott Craner, Commented Sep 8, 2017 at 14:44
BTW: the formula version: =CHOOSE(RANDBETWEEN(1,2),"Jack","John") — Scott Craner
– Scott Craner, Commented Sep 8, 2017 at 14:47
I was just stating that your comment Currently, the result is always "2" is a little misleading as to your problem, as the code will return both 1 and 2. — Scott Craner
– Scott Craner, Commented Sep 8, 2017 at 15:03

score 4 · Accepted Answer · 2017-09-08 14:37:49Z

4

Try using randbetween on the array.

Range("A1").Value = UserNames(Application.RandBetween(LBound(UserNames), UBound(UserNames)))

Collectives™ on Stack Overflow

Pick random value from string array

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related