VBA Crypto solving

I am trying to solve some simple crypto, that looks something like this;

cells 1,1 has the alphabet and cells 1,2 has the key.
a = z
b = y
c = x

this is my long drawn out code for 1 cell.

Please Login or Register  to view this content.

ect...

is there an easier way? please help.

Thank you,

Sean

Depending on how you are going to use it I would create a 2 dimensional array - assume A-Z is in column A and Z-A is in column B

Please Login or Register  to view this content.

The first dimension of the array cryArr(n,1) is column A and the second dimension is cryArr(n,2)
So if you loop through the array to find A

Please Login or Register  to view this content.

In this case the letter you would look for would be a variable so you would not loop through to find A but rather find a string variable. For example

Please Login or Register  to view this content.

Hope that makes sense

In your example hvcm would equate to sexm however hvzm would equate to sean.
You could enter the code you want to convert into C1 and use

Please Login or Register  to view this content.

See attached workbook - if you want to ask any questions about the code let me know