Combo generator

I realize this isn't in the VBA Forum, but here is a VBA Solution....I think it does what you want...

Option Base 1
Sub testing()

    Dim a As Long, b As Long, c As Long, d As Long, RowCnt As Long
    Dim ColCnt As Integer

    Dial1 = Array("J", "M", "D", "B", "N", "L", "T", "S", "R", "P")
    Dial2 = Array("H", "L", "T", "R", "Y", "U", "O", "I", "E", "A")
    Dial3 = Array("R", "O", "E", "D", "C", "A", "N", "L", "T", "S")
    Dial4 = Array("Y", "K", "H", "D", "E", "N", "L", "T", "S", "R")
    
    ColCnt = 1
    RowCnt = 1
    
    For a = 1 To 10
        For b = 1 To 10
            For c = 1 To 10
                For d = 1 To 10
                    If RowCnt >= 1000000 Then
                        ColCnt = ColCnt + 1
                    End If
                    Cells(RowCnt, ColCnt).Value = Dial1(a) & Dial2(b) & Dial3(c) & Dial4(d)
                    RowCnt = RowCnt + 1
                Next d
            Next c
        Next b
    Next a

End Sub

this generates 10000 choices....

EDIT: The ColCnt is really not needed....

did this work for you?

Don't worry about that at all...I have uploaded a file with the macro in it. All you have to do is click the big start button...

so here is what is happening

the macro loops uses nested loops.
it goes throught the inner loop (d) and then to loop (c) and then (b) and lastly (a)...
it outputs 4 characters each time giving you what all the combos are....

you then have to decide what "looks" right for a combo...

again, don't worry to much about not knowing XL or VBA....there are plenty of great folks in this forum to help....just ask the question and somebody will answer....

hope this helps

I'm glad you like it. You're welcome and thanks for the rep points....keep asking questions and have fun...

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.