Err.Source

This approach allows you to have a custom error-numbering strategy without fear of conflicting with native errors (or errors generated by other workbooks or applications.)