Public Function SCRAMBLE(sCellContents As String) As String
'source:http://www.bettersolutions.com/excel/EIK284/LB620911611.htm
Dim itextlength As Integer
Dim ichar As Integer
Dim irandomposition As Integer
Dim scharacter As String * 1
itextlength = Len(sCellContents)
For ichar = 1 To itextlength
scharacter = Mid(sCellContents, ichar, 1)
irandomposition = Int((itextlength - 1 + 1) * Rnd + 1)
Mid(sCellContents, ichar, 1) = Mid(sCellContents, irandomposition, 1)
Mid(sCellContents, irandomposition, 1) = scharacter
Next ichar
SCRAMBLE = sCellContents
End Function