Convertir una macro en función

Tienes que crearla en un modulo BAS y ponerle atributo Public

Public Function EsNumeroPositivo(x As Double) As Boolean
EsNumeroPositivo=(x>0)
End Function

la llamas desde la celda =EsNumeroPositivo(A1)

"Luis Menéndez" escribió en el
mensaje news:

Estimados todos , ¿como se convierte una macro en una función para
utilizarla si una función @si es verdadera , por ejemplo?

Gracias mil.