2 Replies Latest reply on Jun 10, 2015 7:52 AM by Willie Roelofs

    Error handler not working

    Willie Roelofs



      I've written a function below to check if a file is allready open or not.


      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


      If it's open I get error number 70 if it's not I get error 0.

      When I run the code and I get to [Open FileName For Input Lock Read As #ff] VBA stops the macro to tell me I have error number 70.


      What am I doing wrong?



      Kind regards,