Excel - Problema con FUNCTION

Espero alguien pueda ayudarme con esto.

Estoy en una hoja de excel y mando llamar a una function.

=calcula(x22)

en X22 tengo un valor numerico

despues, tengo la funcion calcula asi.

function calcula(valor)

BuscaDato

end function

sub BuscaDato()

sheets("Hoja2").activate
range("A4").select
cells.find .... etc

end sub

el problema aqui es que cuando manda llamar a la funcion desde la hoja, procesa la subrutina, pero no me activa la hoja que estoy mandando llamar.

Si yo ejecuto la subrutina por separado, dandole debug, si se activa la hoja y si ejecuta las otras dos instrucciones.

Quisiera saber que parametros me faltan en la funcion, para poder hacer que lo que esta en la subrutina trabaje como debe de ser.

Si existe alguna duda, por favor envienme un correo y les hago llegar el ejemplo. Les envio el archivo de excel para que lo identifiquen mejor.

alguna vez ya lo tratamos en el foro... una función no puede modificar una hoja
como lo hace un procedimiento Sub
un proc. function sólo hace cálculos y devuelve un valor
en tu caso debería ser

function calcula(valor)
resultado = hacer_algo_con_valor
calcula = resultado 'devolver un valor
end function

Saludos desde Baires, JuanC