Hi,

Function LT(ByVal V As Variant) As Variant

V = Trim(V)
If IsNumeric(V) Then
If V = 1 And V <= 26 Then
LT = Chr(V + 64)
Else
LT = ""
End If
ElseIf V Like "[A-Z]" Or V Like "[a-z]" Then
LT = Asc(UCase(V)) - 64
Else
LT = ""
End If

End Function


--
Regards,
Soo Cheon Jheong
_ _
^¢¯^
--