Error handler werkt niet

[ColdDeath]

Hallo,

In mijn userform heb ik de volgende Function met ErrorHandler geschreven.

FileName heb ik geopend, ik krijg daarom error 70.

Function IsWorkBookOpen(FileName As String) As Boolean

    Dim Ret
    
    Dim ff As Long
    ErrNo As Long

    ff = FreeFile()
    On Error Resume Next
    Open FileName For Input Lock Read As #ff
    Close ff
    ErrNo = Err
    On Error GoTo 0
    
    Exit Function
    
'''''''''''''''
'Error handler'
'''''''''''''''
        If Err.Number = 0 Then
            IsWorkBookOpen = False
        ElseIf Err.Number = 70 Then
            IsWorkBookOpen = True
        End If
        
    End Function

Op het moment dat ik het uitvoer krijg ik error 70, zoals gepland. Maar in plaats dat de error handler wordt geactiveerd en IsWorkBookOpen op True wordt gezet, krijg ik een VBA error 70 en ik kan niet op continue klikken. Alsof de error handler totaal wordt genegeerd.

Wat doe ik verkeerd?


Met vriendelijke groet,
Willie

 

[ColdDeath]

Opgelost. Tools -> Options -> General -> Error Trapping daar stond het op Break on all errors.