No deberías tratar de escribir sobre la celda activa, sino devolver el valor deseado:
Código vb:
Ver originalFunction 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