Converting Numbers to Letters

[PTMD]

I have a need to convert numbers (phone numbers) to letters and I need some assistance if you can. I use Excel 2010 and have attached a spread sheet with examples.
Thank in advance
Steve

[AlKey]

Enter this formula in B2 and copy down

=VLOOKUP(MID(A2,1,1)+0,$D$2:$E$11,2,0)&VLOOKUP(MID(A2,2,1)+0,$D$2:$E$11,2,0)&VLOOKUP(MID(A2,3,1)+0,$D$2:$E$11,2,0)&VLOOKUP(MID(A2,4,1)+0,$D$2:$E$11,2,0)&VLOOKUP(MID(A2,5,1)+0,$D$2:$E$11,2,0)&VLOOKUP(MID(A2,6,1)+0,$D$2:$E$11,2,0)&VLOOKUP(MID(A2,7,1)+0,$D$2:$E$11,2,0)&VLOOKUP(MID(A2,8,1)+0,$D$2:$E$11,2,0)

[tiesja]

try

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(A2;"STANDARD");"0";"A");"1";"B");"2";"C");"3";"D");"4";"E");"5";"F");"6";"G");"7";"H");"8";"I");"9";"J")

assumes phone number is in A2

[sandy666]

in real:

1       1
ABC	222
DEF	333
GHI	444
JKL	555
MNO	666
PQRS	7777
TU	88
WXYZ	9999
0       0

so this is not true: 12345678 BCDEFGHI
because:
BCDEFGHI
22333444


e.g.
01-MON AMI-358
01-666 264-359
or
01-WILD-CAT-852
01-9453-228-853

or, in yours way

Public Function convP2A(sourceRange As Range) As String
    
    Dim TempStr             As String
    Dim cellLength          As Integer
    Dim i                   As Integer
    
    sourceValue = Trim(sourceRange.Value)
    If (sourceValue = vbNullString) Then
        resultString = vbNullString
    Else
        cellLength = Len(sourceValue)
        For i = 1 To cellLength
            Select Case Mid(sourceValue, i, 1)
                Case 1: TempStr = TempStr + "B"
                Case 2: TempStr = TempStr + "C"
                Case 3: TempStr = TempStr + "D"
                Case 4: TempStr = TempStr + "E"
                Case 5: TempStr = TempStr + "F"
                Case 6: TempStr = TempStr + "G"
                Case 7: TempStr = TempStr + "H"
                Case 8: TempStr = TempStr + "I"
                Case 9: TempStr = TempStr + "J"
                Case 0: TempStr = TempStr + "A"
            End Select
        Next i
    End If
    convP2A = TempStr
End Function

usage: =convP2A(A1)
A1 or whatever....

[PTMD]

Thank for the support all. These work for me.
Steve

[sandy666]

you are welcome thanks for rep.