New to VBA, Shuffle Words

Hi, i'm a total newcomer to vba and i'm wondering how I could randomly shuffle a word. Iv been set a task whereby words, lists etc need shuffling. I have kind of managed to shuffle the lists but i'm struggling with random re-arrangement of words contained within individual cells (in sheet 2) and then performing the shuffle before re-writing them back into sheet 1. I understand the concept of what i'm meant to do, but just unable to successfully create a piece of working code.

Any help in this matter would be greatly appreciated!!

Cheers, yeah I appreciate that it can be done far more simply, but the task requires the use of vba and using some sort of anagram function. Also might not have made it very clear but each word that needs re-arranging is contained within 1 cell, i.e. Happy is in cell 1,1 Sad cell 2,1 etc etc