Cómo activar un error de una función de VBA

Question

Necesito activar (devolver) un evento de error desde una función de VBA, entonces la función de llamada de esta función puede activar On Error Go to call. Por ejemplo

function Test() 
On Error Go to myError: 
     TestErr() 
Exit Function 

myerror: 
    Test = "Error Triggered" 
End Function 

Function TestErr() 
    ?? 'How to Trigger error here 
End Function 

Gracias

Answer 1

Err.Raise 5, "fuente opcional de error", "Descripción de error opcional"

referencia

MSDN http://msdn.microsoft.com/en-us/library/aa164019%28office.10%29.aspx#odc_tentipsvba_topic3

Answer 2

manera sucia: 1/0

Answer 3

No es lo que pidió, pero tenga en cuenta que si desea devolver un error a una celda desde un UDF, use CVErr. Al igual que

Test = CVErr(xlErrNA) 

para volver #NA