Guys, I don't know if any one is following this thread, but I wanted to come
back and say thanks to everyone!

I have a functional code maker to make prints for my 7th grade students. I'm
sure they will enjoy it!

I have yet to try Bernd's method but I will.

Regards,

Jim



"James E Middleton" wrote in message
...
Thanks, I'll try that one next.


"Bernd" wrote in message
oups.com...
Hello James,

I suggest to use a user-defined-function:
1. Put the code shown below into a macro module (press ALT + F11,
insert a module, paste the code shown below into that module, go back
to worksheet)
2. Enter into cells B1:C26:
A 1
B 2
C 3
...
Z 26
3. Enter into cell A1 the text you want to encipher:
Hello
4. Enter into cell A2:
=caesariancipher(A1,B1:C26)

Now you can change your translation table to any 1:1 code
transformation you want.

18-5-7-1-18-4-19,
Bernd

------------------ snip here -------------------------
Function caesariancipher(s As String, _
r As Range) As String
Dim i As Long, sr As String, sd As String

For i = 1 To Len(s)
sr = sr & sd & _
Application.WorksheetFunction.VLookup( _
UCase(Mid(s, i, 1)), r, 2, False)
sd = "-" 'delimiter
Next i
caesariancipher = sr
End Function
------------------ snip here -------------------------