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....