Choisissez une valeur random à partir d'une string

Comment puis-je faire entrer le code suivant soit «Jack» ou «John» au hasard dans la cellule A1 ? Actuellement, le résultat est toujours "2":

 Sub RandomNames () Dim UserNames(1 To 2) As Ssortingng UserNames(1) = "Jack" UserNames(2) = "John" Range("A1").Value = Application.WorksheetFunction.RandBetween(LBound(UserNames), UBound(UserNames)) End Sub 

Essayez d'utiliser randbetween sur le tableau.

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