Word Search Maker

[euklides]

You can replace

If n$ <> "" Then
    If n$ = "a" Or n$ = "A" Then n = 1
    If n$ = "b" Or n$ = "B" Then n = 2
    If n$ = "c" Or n$ = "C" Then n = 3
    If n$ = "d" Or n$ = "D" Then n = 4
    If n$ = "e" Or n$ = "E" Then n = 5
    If n$ = "f" Or n$ = "F" Then n = 6
    If n$ = "g" Or n$ = "G" Then n = 7
    If n$ = "h" Or n$ = "H" Then n = 8
    If n$ = "i" Or n$ = "I" Then n = 9
    If n$ = "j" Or n$ = "J" Then n = 10
    If n$ = "k" Or n$ = "K" Then n = 11
    If n$ = "l" Or n$ = "L" Then n = 12
    If n$ = "m" Or n$ = "M" Then n = 13
    If n$ = "n" Or n$ = "N" Then n = 14
    If n$ = "o" Or n$ = "O" Then n = 15
    If n$ = "p" Or n$ = "P" Then n = 16
    If n$ = "q" Or n$ = "Q" Then n = 17
    If n$ = "r" Or n$ = "R" Then n = 18
    If n$ = "s" Or n$ = "S" Then n = 19
    If n$ = "t" Or n$ = "T" Then n = 20
    If n$ = "u" Or n$ = "U" Then n = 21
    If n$ = "v" Or n$ = "V" Then n = 22
    If n$ = "w" Or n$ = "W" Then n = 23
    If n$ = "x" Or n$ = "X" Then n = 24
End If

with:

ELM$ = "A1 B2 C3 D4 E5 F6 G7 H8 I9J10K11L12M13N14O15P16Q17R18S19T20U21V22W23X24"
J = InStr(ELM$, UCase$(n$)): n = Val(Mid$(ELM$, J + 1, 2))