Canviar el valor de otra celda

Hola a todos, tengo un problema que no se com solucionar. Necesito
canviar el valor de una celda, a partir de una funcion. Por ejemplo:

Si en la hoja escribo en una celda "=prueba(0,4)" y la funcion es:

Function prueba(num as double)as double
num = ActiveSheet.Cells(1,1).value
prueba = num
end Function

la funcion prueba me retorna el valor de la celda A1. Però lo que
necesito es que en la funcion se canvie el valor de la celda A1 o sea algo
asi como

Function prueba(num as double)as double
ActiveSheet.Cells(1,1).value = a
prueba = a
end Function

però el lenguaje no me deja cambiar el valor de la celda A1 desde esta
función.

Como podria hacer cambios a otra celda desde una funcion llamada de esta
forma, o se escribiendo en una celda cualquiera
"=nombre_funcion(<variables>)"

Gracias.