Excel - Como introducir CICLOS SI en un MODULO

Por ejemplo, tengo una cuestion que deseo hacer.


En A1 poder teclear del 1 al 5, y que en B2 se ponga un UNO, DOS, TRES, CUATRO, CINCO, depende del numero tecleado, pero validar esto en un MODULO.

La solución fácil es

=SI(B7=1,"UNO",SI(B7=2,"DOS",SI(B7=3,"TRES",SI(B7=4,"CUATRO",SI(B7=5,"CINCO","X<1 ó X>5")))))

La difícil pero mejor solución es con un módulo:
----------------------------------------------------------------------------------------------

Option Explicit

Function EnLetras(Valor) As String
If Not IsNumeric(Valor) Then
EnLetras = "¡ La referencia no es valor !":
Exit Function
End If
EnLetras = Letras(Int(Abs(Valor)))
If Valor < 0 Then
EnLetras = "menos " & UCase(EnLetras)
Else
EnLetras = UCase(EnLetras)
End If
EnLetras = EnLetras
End Function
Private Function Letras(Valor) As String
Select Case Int(Valor)
Case 1: Letras = "uno"
Case 2: Letras = "dos"
Case 3: Letras = "tres"
Case 4: Letras = "cuatro"
Case 5: Letras = "cinco"
End Select
End Function

Abre Excel. Debes colocar el código en

Herramientas->Macro->Editor de Visual Basic

Estando en el editor debes hacer

Insertar->Módulo

y en esa ventana blanca colocar el código.

Guardas tu archivo y ya tienes el código.

Para poder usarlo; coloca un número en una celda y en la siguiente celda coloca la fórmula =enletras(tu_celda) le das enter y

¡¡¡ Listo !!!

Saludos.