Issue getting the value from an array instead of index

[kelly mort]

Sub GetOutPut()

Dim V1, V2, V3, V4, V5
Dim TheList 
Dim output


V1 = "This One"
V2 = "The Boy"
V3 = "That One"
V4 = "Car Race"
V5 = "Cash Money"

TheList = Array(V1, V2, V3, V4, V5)

Output = Application.WorksheetFunction.RandBetween(LBound(TheList), UBound(TheList))

MsgBox TheList(output)

End Sub

My aim is to pull randomly from the list meanwhile its showing me the list index instead. How do I get the value instead. Say

"The Boy" instead of 1?

 

[Finalfight40]

Like this?

Sub GetOutPut()


Dim V1, V2, V3, V4, V5
Dim TheList
Dim output

V1 = "This One"
V2 = "The Boy"
V3 = "That One"
V4 = "Car Race"
V5 = "Cash Money"


TheList = Array(V1, V2, V3, V4, V5)


output = Application.WorksheetFunction.RandBetween(LBound(TheList), UBound(TheList))


MsgBox TheList(output)


End Sub

 

[kelly mort]

Like this?

Sub GetOutPut()


Dim V1, V2, V3, V4, V5
Dim TheList
Dim output

V1 = "This One"
V2 = "The Boy"
V3 = "That One"
V4 = "Car Race"
V5 = "Cash Money"


TheList = Array(V1, V2, V3, V4, V5)


output = Application.WorksheetFunction.RandBetween(LBound(TheList), UBound(TheList))


MsgBox TheList(output)


End Sub

Yes. I just figured it out few seconds after the post. Have been on this for the past 1 hour.

 

[Finalfight40]

It's always the way haha.

 

[Peter_SSs]

Just a comment: vba has its own random number generation facility so there is really no need to revert to the worksheet one

<del>output = Application.WorksheetFunction.RandBetween(LBound(TheList), UBound(TheList))</del>
output = LBound(TheList) + Int(Rnd() * (UBound(TheList) + 1))

 

[kelly mort]

Just a comment: vba has its own random number generation facility so there is really no need to revert to the worksheet one

<del>output = Application.WorksheetFunction.RandBetween(LBound(TheList), UBound(TheList))</del>
output = LBound(TheList) + Int(Rnd() * (UBound(TheList) + 1))

Okay. I will amend that ASAP