Conversión

Si es posible, sólo que tendrías que desarrollar una función que busque por palabra y reemplace por el número correspondiente
Ejemplo:
En la celda F8 escribe =TXT2NUM(F7) y te devolverá un número dependiendo de lo que este escrito en la celda F7
Public Function Txt2Num(ByVal sCantidad As String) As Long
    On Error GoTo Err_Txt2Num
    Select Case UCase(sCantidad)
        Case "CERO"
            Txt2Num = 0
        Case "UN"
            Txt2Num = 1
        Case "DOS"
            Txt2Num = 2
        Case "TRES"
            Txt2Num = 3
        Case "CUATRO"
            Txt2Num = 4
        Case "CINCO"
            Txt2Num = 5
        Case "SEIS"
            Txt2Num = 6
        Case "SIETE"
            Txt2Num = 7
        Case "OCHO"
            Txt2Num = 8
        Case "NUEVE"
            Txt2Num = 9
        Case "DIEZ"
            Txt2Num = 10
        Case "ONCE"
            Txt2Num = 11
        Case "DOCE"
            Txt2Num = 12
        Case "TRECE"
            Txt2Num = 13
        Case "CATORCE"
            Txt2Num = 14
        Case "QUINCE"
            Txt2Num = 15
        Case "CIEN"
            Txt2Num = 100
        Case "MIL"
            Txt2Num = 1000
        Case Else
           Txt2Num = "#N/A"
    End Select
Exit_Txt2Num:
    Exit Function
Err_Txt2Num:
    Resume Exit_Txt2Num
End Function
Si gustas te puedo enviar el archivo donde lo probé, como podrás ver habría que desarrollar toda la función.