Macro de número a texto para calificaciones

Vamos a suponer que tu tienes tus calificaciones en la columna A desde A1 en adelante y queremos poner las calificaciones en Texto en la columna B desde la B1 en adelante la macro quedaría así:
Sub NumALetra()
Dim valor As String
Dim INI As Integer
Dim letra As String
Dim letra1 As String
Range("B1").Select
Do While ActiveCell.Offset(0, -1).Value <> ""
valor = ActiveCell.Offset(0, -1).Text
FIN = Right(valor, 1)
INI = Left(valor, 2)
If INI = 1 Then
letra = "UNO"
End If
If INI = 2 Then
letra = "DOS"
End If
If INI = 3 Then
letra = "TRES"
End If
If INI = 4 Then
letra = "CUATRO"
End If
If INI = 5 Then
letra = "CINCO"
End If
If INI = 6 Then
letra = "SEIS"
End If
If INI = 7 Then
letra = "SIETE"
End If
If INI = 8 Then
letra = "OCHO"
End If
If INI = 9 Then
letra = "NUEVE"
End If
If INI = 0 Then
letra = "CERO"
End If
If INI = 10 Then
letra = "DIEZ"
End If
If FIN = 1 Then
letra1 = "UNO"
End If
If FIN = 2 Then
letra1 = "DOS"
End If
If FIN = 3 Then
letra1 = "TRES"
End If
If FIN = 4 Then
letra1 = "CUATRO"
End If
If FIN = 5 Then
letra1 = "CINCO"
End If
If FIN = 6 Then
letra1 = "SEIS"
End If
If FIN = 7 Then
letra1 = "SIETE"
End If
If FIN = 8 Then
letra1 = "OCHO"
End If
If FIN = 9 Then
letra1 = "NUEVE"
End If
If FIN = 0 Then
letra1 = "CERO"
End If
ActiveCell.Value = letra & " PUNTO " & letra1
ActiveCell.Offset(1, 0).Select
Loop
End Sub
La macro recorrerá toda la fila A hasta que encuentre una vacía y irá poniendo en la celda contigua la calificación en el formato que deseas.
Si necesitas alguna aclaración me lo dices, si te ha servido puntúa y finaliza la consulta. Gracias.
>Un saludo
>Julio

Yo creo que se está haciendo problemas con la famosa macro.
Lo que debería hacer en este caso es usar la misma macro con unas pequeñas modificacionespara usarla como una función definida por el usuario. En este caso se llama "NumPuntoNum", para que la use como cualquier función normal de Excel, y se debe grabar en un módulo como cualquier macro.
Este es el código:
Function NumPuntoNum(valor)
Dim INI As Integer
Dim letra As String
Dim letra1 As String
FIN = Right(valor, 1)
INI = Left(valor, 2)
If INI = 1 Then
letra = "UNO"
End If
If INI = 2 Then
letra = "DOS"
End If
If INI = 3 Then
letra = "TRES"
End If
If INI = 4 Then
letra = "CUATRO"
End If
If INI = 5 Then
letra = "CINCO"
End If
If INI = 6 Then
letra = "SEIS"
End If
If INI = 7 Then
letra = "SIETE"
End If
If INI = 8 Then
letra = "OCHO"
End If
If INI = 9 Then
letra = "NUEVE"
End If
If INI = 0 Then
letra = "CERO"
End If
If INI = 10 Then
letra = "DIEZ"
End If
If FIN = 1 Then
letra1 = "UNO"
End If
If FIN = 2 Then
letra1 = "DOS"
End If
If FIN = 3 Then
letra1 = "TRES"
End If
If FIN = 4 Then
letra1 = "CUATRO"
End If
If FIN = 5 Then
letra1 = "CINCO"
End If
If FIN = 6 Then
letra1 = "SEIS"
End If
If FIN = 7 Then
letra1 = "SIETE"
End If
If FIN = 8 Then
letra1 = "OCHO"
End If
If FIN = 9 Then
letra1 = "NUEVE"
End If
If FIN = 0 Then
letra1 = "CERO"
End If
NumPuntoNum = letra & " PUNTO " & letra1
End Function