Paste text in a random cell in a range to a callout bubble

[PP]

Hi,

I am looking for a macro that will copy the text-based contents of a random cell in the range B100:B135 to a callout text box. The name of the callout is Autoshape 13. The callout should be cleared before pasting the contents of the next random cell into it. This macro will be assigned to a button.

Thanks in advance.

 

[PP]

Is this the right place to ask for VBA help?