Converting Numbers to Letters

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....