Escribir en celda activa desde macro excell

[-thor-]

Hola, estoy intentando desarrollar una funcion que me permita escribir en la celda actual la traduccion de un numero a texto, pero cuando llamo a la funcion desde una celda en excel =num(1,1), recibo el siguiente mensaje:

Código PHP:

  Advertencia de referencia circular.
Una o mas formulas contienen una referencia circular y no se puede calcular correctamente. Las referencias circulares son las referencias incluidas en una formula que dependen de los resultados de esa misma formula. 
   

y luego resultado 0 en la celda


Esta es mi funcion que necesito que escriba en la celda activa.
Gracias, alguien me puede ayudar a solucionar el problema.

Código:

Function num(numero As Double)
Select Case numero

Case 1.1
    ActiveCell.Value = "Es n uno punto uno"

End Select

End Function

[Triby]

No deberías tratar de escribir sobre la celda activa, sino devolver el valor deseado:

Código vb:

Function num(numero As Double)
    Select Case numero
        Case 1.1
            ' Asignar el valor de retorno en lugar de escribir en la celda
            num = "Es n uno punto uno"
    End Select
End Function