If you have 8 texts in cells A1:A8 you can select cells
B1:B8, enter

=INDEX(A1:A8,UniqRandInt(COUNTIF(A1:A8,"<"""""),F ALSE))

(as array formula, enter with CTRL+SHIFT+RETURN), for
example.

You will find the function UniqRandInt() at
www.sulprobil.com. Copy its text, press ALT+F11, insert a
module, then paste the copied vba function text. That's
it, I hope.

HTH,
Bernd