Codigo VBA para codigo alfanumerico

Está fallando para responder esta pregunta...

No entiendo por que al querer incluir el código me dice que hay un error de la página...

Intentaré poner el código 'por partes'... lo siento

Function codigoAlfaNumerico(cantDigitos As Integer) As String
Dim i As Integer, vParcial As String, vAux As Integer

Randomize
vParcial = ""
For i = 1 To cantDigitos

vSalida = Int(Rnd() * 36)
If vSalida < 10 Then

Cambio de técnica... voy por una imagen...

Me pide una macro, es decir no funciona bien.

Tiene que se en una macro con nombre 

¿Viste la imagen que finalmente puse al final? Si ese código lo ponés dentro de un módulo, después desde el xls lo podés llamar como a cualquier función.

Señor cuando le doy a correr lo que me sale ese cuadro de dialogo y si creo un macro me da un error 

Disculpe, ya entendí como funciona, lo que usted creo fue una función para usar como una fórmula, funciona perfecto.

Muchas muchas gracias