Sub permutation()
'SOURCE:http://wiki.ittoolbox.com/index.php/Code:Split_a_word_letter_by_letter_into_the_corresponding_cells
Dim temp As String
Dim tempword As String
Dim word As String
Dim wordlen As Integer
Dim darray() As String
word = ActiveCell
wordlen = Len(ActiveCell)
For i = 1 To wordlen
temp = Mid(word, i, 1)
ReDim Preserve darray(i)
darray(i) = temp
For j = i To i
temp = Mid(word, i, 2)
ReDim Preserve darray(i + i)
darray(i + i) = temp
Next j
Next i
For i = 1 To UBound(darray)
ActiveCell.Offset(0, i) = darray(i)
Next i
End Sub