M

#### margie

trying to write a program that reads customer orders in a worksheet

then it outputs all possible permutations of those orders in the nex

columns. The number of orders is dynamic and is represented by th

variable n. I just defined n as a number for now to see if wa

working. Here is the code and I will note below where the runtim

error occurs.

Dim CurrentCol

Dim arr() As Variant

Dim rng As Range

Sub GetString()

Dim instring As String

Dim n As Integer

Dim i As Integer

Dim j As Integer

i = 1

j = 1

n = 5

For i = 1 To n

instring = instring & i

Next i

Set rng = Range("A1").Resize(Application.CountA(Range("A1.A65336")))

arr = rng.Value

ActiveSheet.Columns(2).Resize(, 255).Clear

CurrentCol = 1

Call GetPermutation("", instring)

End Sub

Sub GetPermutation(x As String, y As String)

Dim i As Integer, j As Integer, sres As String

j = Len(y)

If j < 2 Then

sres = x & y

For rw = 1 To Len(x & y)

Cells(rw, CurrentCol) = arr(CLng(Mid(x & y, rw, 1))) ***

(runtime error 9 "subscript out of range" occurs here)****

Next

CurrentCol = CurrentCol + 1

Else

For i = 1 To j

Call GetPermutation(x + Mid(y, i, 1), _

Left(y, i - 1) + Right(y, j - i))

Next

End If

End Sub

Please help. Thanks