Thread: Sentence Scrambler Help-- (Solved)

Hi all. I'm trying to rearrange the order of the words randomly within a cell. I'm getting a type mismatch error. Here's what I've got so far:

Sub Scramble()


Dim sentenceNew As String
Dim x As Variant
x = Split(ActiveCell.Text, " ")
x = ShuffleArray(x)
sentenceNew = Join(x, " ")
ActiveCell.Offset(1, 1) = sentenceNew

End Sub

The ShuffleArray function is here: http://www.cpearson.com/excel/ShuffleArray.aspx

If I comment out the ShuffleArray line, everything else works fine. What am I doing wrong?

Hi,

Change the ShuffleArray function signature to this:

Function ShuffleArray(InArray As Variant) As Variant()

You will get an error if the activecell is empty so you should add a check for that too.