Random Chance Formula?

[MasterCoder84]

I need to create a random percentage in a cell so that every time I make a cell active it will display something different. For example every time A1 is active is has a 30% chance to say apple 10% chance to say banana and 60% chance to say orange. How do I do this?

Thanks,

[daddylonglegs]

Try

=LOOKUP(RAND(),{0,0.3,0.4;"apple","banana","orange"})

[Rick-O-Shay]

Hello,

I searched the forum for this question and I found it, along with an answer, but how would I write this in VBA? I want to be able to push a button and have the data change when clicked.

Thanks,