error handler

Private Sub SomeName()
    On Error GoTo Err_Handler
   ' Code to do something here.
Exit_Handler:                          
    Exit Sub
Err_Handler:                           
    MsgBox Err & " " & Error$           
    Resume Exit_Handler
End Sub
 
' OR 
 
Private Sub SomeName()
    On Error GoTo Err_Handler
    ' Code to do something here.
Exit_Handler:                          
    Exit Sub
Err_Handler:                           
    Select Case Err
      Case 9999                         
        Resume Next                   ' Use this to just ignore the line.
        Resume Exit_Handler           ' Use this to give up on the proc.
      Case Else                         .
         MsgBox Err & " " & Error$         
         Resume Exit_Handler
End Select
End Sub