A large part of how you handle errors comes down to personal choice. You could try to modify the following code to suit your needs.
<pre>
Sub AnyRoutine()
Dim MyArray() As Integer
Dim VBCompName As String, ProcName As String
'Module is already in progress
On Error GoTo ErrHandler
'Tell VBA to use trapping routine
MyArray(8) = 234
'This will cause Error 9 - Subscript out of range
'The number of elements in an array must be explicitly stated
'Module continues then
Exit Sub
'You must exit the sub or the Error Handler is invoked
'everytime you come to the end of the macro
ErrHandler:
' Module to handle errors
VBCompName = Application.VBE.SelectedVBComponent.Name
ProcName = "AnyRoutine" 'change for each routine
We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel
Which adblocker are you using?
Disable AdBlock
Follow these easy steps to disable AdBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the icon in the browser’s toolbar. 2)Click on the "Pause on this site" option.
Go back
Disable AdBlock Plus
Follow these easy steps to disable AdBlock Plus
1)Click on the icon in the browser’s toolbar. 2)Click on the toggle to disable it for "mrexcel.com".
Go back
Disable uBlock Origin
Follow these easy steps to disable uBlock Origin
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.
Go back
Disable uBlock
Follow these easy steps to disable uBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.