OnError not working

Howdy, y'all:

Here's the code where I'm having problems:

   If ActiveCell.Offset(0, 9) <> "" Then
        On Error GoTo rCont
        UserForm1.lbReasons.SetFocus
        UserForm1.lbReasons = ActiveCell.Offset(0, 9)
        GoTo rCont1
rCont:
        addTempReason (ActiveCell.Offset(0, 9))
        UserForm1.lbReasons.RowSource = "reasonList"
        UserForm1.lbReasons = ActiveCell.Offset(0, 9)
rCont1:
        On Error GoTo 0
    End If
    If ActiveCell.Offset(0, 10) <> "" Then
        On Error GoTo rCont2
        UserForm1.lbSelectStandbyAM.SetFocus
        UserForm1.lbSelectStandbyAM = ActiveCell.Offset(0, 10)
        GoTo rCont3
rCont2:
        addTempDriver (ActiveCell.Offset(0, 10))
        UserForm1.lbSelectStandbyAM = ActiveCell.Offset(0, 10)
rCont3:
        On Error GoTo 0
    End If

I've got a record that I'm trying to work with that will cause an error in both of these code segments. The error is handled properly in the first segment but not in the second - I get an error that points to the line that I've shown in red. But it seems that the errorStatements for that code segment would be working and that's not the case.

Any ideas what I'm doing wrong?

TIA.

Bob