Public Function scramble(Target As Variant)
On Error Resume Next
Dim CL As New Collection
Application.Volatile
scramble = ""
Do Until CL.Count = Len(Target)
R = Int(1 + Rnd * Len(Target))
CL.Add R, CStr(R)
Loop
For I = 1 To CL.Count
scramble = scramble & Mid(Target, CL(I), 1)
Next
End Function