You can't replace the err object, but you can accomplish what you want to do... you just have to include error handling in every subroutine....
Public Sub SampleCode
On Error Goto CatchError
'Your subrotine code here
Exit Sub
CatchError:
Err.Raise YourErrorNumber, YourDescription
End Sub