Can a subfunction return an error on behalf of the caller?

[JenniferMurphy]

If Function A is called from an Excel cell and then calls Sub B, is there any way that B can return an error condition directly back to the Excel cell on behalf of A without returning control to A?

I am working on a UDF (A) that does a lot of error checking. Wanting to standardize the error handling, I wrote an error handling procedure (B). A calls B, which does the error checking and returns True if it found an error or False if not.

Here's an example of the code in the main UDF and a snippet of the sub-function.

 . . .
If B(p1, p2, ...) then A = CVErr(xlErrValue): Exit Function
 . . .


Public Function B(p1, p2, ...) as Boolean
ErrorFun = False
 . . .
If (some error condition exists) then B = True: Exit function
 . . .

I would like to change that to something like this:

 . . .
Call B(p1, p2, ...)   'Do some error checking
 . . .


Public Sub B(p1, p2, ...)
 . . .
If (some error condition exists) then
  ??? return an error condition to the Excel cell that called A (not to A itself) ???
End If

Is some code that I can put in the B that will do this?

Thanks

 

[Kyle123]

No, and you wouldn't want to. You should be bubbling the error, as an example:

Public Function WorksheetFunc(ByVal div As Long)

On Error GoTo handler
    WorksheetFunc = DivideBy(div)
    
    Exit Function
handler:

    If Err.Number = 11 Then
        WorksheetFunc = CVErr(xlErrDiv0)
    Else: WorksheetFunc = CVErr(2015)
    End If
End Function


Private Function DivideBy(ByVal div As Long) As Double

    DivideBy = div / 0

End Function

 

[JenniferMurphy]

No, and you wouldn't want to. You should be bubbling the error, as an example:

Public Function WorksheetFunc(ByVal div As Long)

On Error GoTo handler
    WorksheetFunc = DivideBy(div)
    
    Exit Function
handler:

    If Err.Number = 11 Then
        WorksheetFunc = CVErr(xlErrDiv0)
    Else: WorksheetFunc = CVErr(2015)
    End If
End Function


Private Function DivideBy(ByVal div As Long) As Double

    DivideBy = div / 0

End Function

I'll have to study that a bit. Thanks.