Error Handler Always Runs (1 Viewer)

Function fDeleteXtabs()
'deletes xtab(n) queries 1-9

On Error GoTo fDeleteXtabs_Err
Dim strErrMsg As String

Dim intI As Integer
Dim strXtabName As String

'!-------Begin Querydef block
Dim db As DAO.Database
Dim qdfNew As DAO.QueryDef
Set db = CurrentDb()
'!-------End Querydef block

For intI = 1 To 9
strXtabName = "xtab" & intI
    If ObjectExists("Query", strXtabName) Then    'prevents it trying to delete non-existent object
        db.QueryDefs.Delete strXtabName
    End If

Next intI

fDeleteXtabs_Err:
    Select Case Err
        Case Else
            'File is open
            strErrMsg = vbNullString
            strErrMsg = "There has been a problem deleting one of the queries. "
            MsgBox strErrMsg, vbCritical, "Output Error!"
            Exit Function
    End Select

End Function

Next intI
'<== Need an exit here  !!!
Exit function
fDeleteXtabs_Err:
    Select Case Err
        Case Else
            'File is open
            strErrMsg = vbNullString
            strErrMsg = "There has been a problem deleting one of the queries. "
            MsgBox strErrMsg, vbCritical, "Output Error!"
            Exit Function
    End Select

End Function