Conversión de números a letras en Excel

primero en el archivo que les coloque en un mensaje anterior, les dije que tenian que tener algun conocimiento basico de macros y por supuesto de Excel.
Haber voy a poner por pasos como hacer quefuncione:
1.- Abren su excel, en la pagina que van a querer que se haga la "conversion" luego va a: -Herramientas -Macros -Editor Visual Basic. Ahi dentro buscan: -Insertar -Módulo y despues hacenun "copiar-pegar" del archivo que les envie dentro de "modulo".
2.- LIsto... luego ponen el numero (o los) que quieran convertir y marcan ese celda, luego buscan el icono de "autosuma"  y buscan"mas funciones" ahi ubican que diga "definida por el usuario" y luego buscan "Literal"  y  ZAS! listo. Se convierte el numero en letras.
3.- hay que tener en cuenta algunos truquitos: si quieren quetodo salga en mayusculas tiene que colocar asi: =MAYUSC(Literal(K23,"s")) [Donde k23 es cualquier celda]
Ademas tiene que tener una configuracion "regional y de idioma" de su Sistema Operativopreferentemente la de Mexico.
bueno cheee.. tengo harto trabajo que hacer y estoy dedicandome a enseñarles... en fin todo sea por una buena causa. Saludos a Todos desde Santa Cruz de la Sierra -Bolivia (que para los que no saben no es altiplano y es una ciudad hermosa, calida y tropical).
Espero que les haya sido util. Los que tengan algunas dudas me escriben: reyluis_fer@hotmail.com
Chau.Function Literal(Numero As String, Optional varcon, Optional varIdioma) As String
'varCon = S o N, S va la palabra CON, N no va la palabra CON
'varIdioma = I, ingles, cualquier otracosa español
Dim i As Integer
Dim n As Integer
Dim j As Integer
Dim diez
Dim once
Dim veinte
Dim cien
Dim s As String
Dim str As String
Dim DecimalesAs String
Dim vec(20) As String
Dim unidad As String
Dim decena As String
Dim centena As String

If IsMissing(varcon) Then
varcon = "S"
End If
If...