probleme avec la fonction MID

bonjour a tous,
voila mon probleme,

j'aimerai en VB mettre dans une variable la lettre de la colonne,
par exemple 'A17'
je fais:
lettre2 = ActiveCell.Address
ce qui donne lettre2 = $A$17
apres, je fais:
lettre = Mid(lettre2, 2, 1)
Ce qui donne lettre = A

mais le probleme c que si, la Cellule est 'AD17'
lettre donne comme resultat 'A' et pas 'AD'
a cause du '1' de la fonction MID
aurais-t-il un moyen pour que dans tous les cas de figure, j'aurai dans la variable ' lettre ', la ou les lettre/s de la colonne?

merci d'avant pour cette petite aide.

.Chico-