Capture Procedure name

[Hack]

Private Sub cmdError_Click()
strProcedureName = "cmdError"
'error code goes here
End Sub