Lock combo from 5 tumblers with 10 letters each

[Hughbie]

I have padlock for my pool that has 5 rings with 10 letters each. I had to change the combo a few days ago and for the life of me i cant remember what i changed it to.
i have a list of the letters on each dial and wonder if i can use excel to come up with all possible combo of words using only the letters in the list.

any ideas?

 

[igold]

How about not Excel...

https://www.wordplays.com/word-jumble-solver/

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub Hughbie()
   Dim ary As Variant, nary As Variant
   Dim r As Long, s As Long, t As Long, u As Long, v As Long, nr As Long

   ary = Range("A1:E10").Value
   ReDim nary(1 To UBound(ary) ^ UBound(ary, 2), 1 To 1)
   For r = 1 To UBound(ary)
      For s = 1 To UBound(ary)
         For t = 1 To UBound(ary)
            For u = 1 To UBound(ary)
               For v = 1 To UBound(ary)
                  nr = nr + 1
                  nary(nr, 1) = ary(r, 1) & ary(s, 2) & ary(t, 3) & ary(u, 4) & ary(v, 5)
               Next v
            Next u
         Next t
      Next s
   Next r
   Range("G1").Resize(nr).Value = nary
End Sub

 

[igold]

@Fluff - the reason I suggested my solution was that the OP specifically asked for all words from the letters, not all the possible combinations...

 

[shg]

So there are 100,000 combinations, and there are about 10,000 five-letter words (some uncommon). It would be straightforward to search a dictionary to list see how many words can be made.

What letters are on each dial?

 

[Fluff]

I wasn't sure whether the op meant proper words, or was simply using "words" generically, meaning any combination of letters.

 

[shg]

Someone's already done it: https://roomescapeartist.com/2018/02/25/wordlock-all-possible-4-5-letter-words/

There's a link to a spreadsheet.

 

[igold]

The only reason I thought real words was the backstory about a lock. Thinking that you think up memorable words for your combination. Either way looking at a picture of these kind of locks, I am not sure my solution is viable. Perhaps a combination of your solution and the use of

Cells.CheckSpelling

It's a trickier question than it initially appeared to be...

 

[Fluff]

@shg
Nice find