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