I am saving one document with this vba code "ThisWorkbook.SaveAs "http://server/webdavpath" and sending response code 500 with this java code
"response.sendError(500);" but the Excel Application didnīt recognize error code.
My VBA code is 

 ' Turn error trapping on
    On Error GoTo RiseError
    
    ThisWorkbook.SaveAs nomeCompleto
    GoTo EndRiseError
RiseError:
    Err.Raise vbObjectError + 513, "Macros::Save()"
EndRiseError:
Why Excel donīt recognize the error code?