finding all possible arrangements of a series

Sub PermutWords()
Dim lrow As Long
 
PermutWords1 Range("A1"), "", lrow
End Sub
 
Function PermutWords1(ByVal s As String, ByVal sPermut As String, ByRef lrow As Long)
Dim l As Long
 
If Len(s) = 1 Then
    lrow = lrow + 1
    Range("B" & lrow) = sPermut & s
Else
    For l = 1 To Len(s)
        PermutWords1 Replace(s, Mid(s, l, 1), ""), sPermut & Mid(s, l, 1), lrow
    Next l
End If
End Function