wsnyder
Board Regular
- Joined
- Sep 23, 2018
- Messages
- 223
- Office Version
- 365
- Platform
- Windows
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
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
VBA Code:
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