Err Number = 0 End Process Runs Anyway

[wsnyder]

Hi,

Using Excel 365.

The err.number returns as 0, but the endproc runs anyway.
Why is that and how do I get around it?

Thanks,
-w

Private Sub Get_Column_Position(ws As Worksheet)

    Dim rng As Range
    Dim arr As Variant
    Dim i As Long
    
    Set rng = ws.Range("1:1")
    arr = Array(gcsTerm_EntityCodeLife, _
                gcsTerm_DesignStart, _
                gcsTerm_PrefacStart, _
                gcsTerm_PrefacFinish, _
                gcsTerm_MoveOut, _
                gcsTerm_DSL3Finish)
                
    On Error GoTo endproc
    For i = LBound(arr) To UBound(arr)
        Select Case arr(i)
            Case gcsTerm_EntityCodeLife
                mvlposEntityCodeLife = FindColumnHeader(rng:=rng, _
                                                        SearchTerm:=gcsTerm_EntityCodeLife)
            Case gcsTerm_DesignStart
                mvlposDesignStart = FindColumnHeader(rng:=rng, _
                                                     SearchTerm:=gcsTerm_DesignStart)
            Case gcsTerm_PrefacStart
                mvlposPrefacStart = FindColumnHeader(rng:=rng, _
                                                     SearchTerm:=gcsTerm_PrefacStart)
            Case gcsTerm_PrefacFinish
                mvlposPrefacFinish = FindColumnHeader(rng:=rng, _
                                                      SearchTerm:=gcsTerm_PrefacFinish)
            Case gcsTerm_MoveOut
                mvlposMoveOut = FindColumnHeader(rng:=rng, _
                                                 SearchTerm:=gcsTerm_MoveOut)
            Case Else
                mvlposDSL3Finish = FindColumnHeader(rng:=rng, _
                                                    SearchTerm:=gcsTerm_DSL3Finish)
        End Select
    Next i
    
endproc:
    MsgBox Prompt:="Error " & Err.Number & " occurred" & vbNewLine & _
                   "In the Get_Column_Position Function" & vbNewLine & _
                   "Please check spelling of headers on the schedule sheet.", _
            Title:="Find Error", _
            Buttons:=vbOKOnly
    Exit Sub

    'Tidy up
        'Destroy objects
            Set rng = Nothing
    

End Sub

 

[Norie]

Everything after endproc will run every time you run this code, if you don't want that to happen add Exit Sub immediately before it.

 

[wsnyder]

Thanks Norie,

I had Exit Sub on the wrong line.
I moved it up before endproc:
Now works as expected.

Thanks,
w