Select random text value from column and assign to variable

I have a column with a bunch of text in column A in sheet "Rate".

I want my macro to randomly select one of the text values and use that as the value for a variable.

For example here is pseudo code:

DIM y
y = find value of random cell in column A in sheet Rate.

So the column could have a list of fruit, and at the end of running this part of the code the value of y could be "Apples" by random selection

Thanks

Originally Posted by JieJenn

I don't know how many "fruits" are in column A but perhaps,

Cells(WorksheetFunction.RandBetween(1, 24), 1).Select

This puts me on the right track. I failed to mention in my original post that "Rate" is not the active worksheet. Can a reference to that sheet be incorporated into this somehow? Thanks.

I tried this:

y = Sheets("Rate").Cells(WorksheetFunction.RandBetween(3, 9), 1).Select

And got this message:

Run-time error '1004':
Application-defined or object defined error

Can you please help me adjust my code?