Sub permutations()
Dim I As Integer, J As Integer, Rng As Integer

Rng = Cells(Rows.Count, "B").End(xlUp).Row
J = 1
Range("A1").Select
Do Until ActiveCell.Value = ""
For I = 1 To Rng
Cells(J, "D").Value = "'" & ActiveCell & Cells(I, "B")
J = J + 1
Next I
ActiveCell.Offset(1, 0).Select
Loop

End Sub

On Nov 29, 11:25*am, "Max" wrote:
I've got 4 digit text nums in A1 down
In B1 down, I would like to list the corresponding number of permutations,
eg:

* * * 7777 1
* * * 1777 4
* * * 0044 6
* * * 2477 12
* * * 1234 24

Game for any formula, udf or other vba solution
Thanks for insights