How do I get the name of a Procedure automatically so
I can report it in my error handling.


eg

Sub DoSomethingCool()

OnErr: <error handler > "Error, " & err, & "occurred in DoSomethingCool"

End Sub

i.e. is there a way to handle this better so that if the procedure name changes the erorr handler picks up the new change, without having to modify the error handler message?